Лабораторная работа №6

«Программа-оболочка для работы с архивами»

Выполнил:

студент ФЭИС

группы ПЭ-11

Волынчук И.А

Проверила:

Четвёркина Г.А

Брест, 2011

Цель работы: В ходе выполнения работы необходимо создать программу-оболочку, работающую с одним из стандартных консольных архиваторов для DOS (например, ARJ, AIN, HA или любой другой).

Задание: В ходе выполнения работы необходимо создать программу-оболочку, работающую с одним из стандартных консольных архиваторов для DOS (например, ARJ, AIN, HA или любой другой).

Текст программы:

//---------------------------------------------------------------------------

#include < vcl.h>

#pragma hdrstop

#include < stdio.h>

#include " final.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource " *.dfm"

TForm1 *Form1;

FILE *Fs;

//---------------------------------------------------------------------------

__fastcall TForm1:: TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: Button2Click(TObject *Sender)

{

exit(1);

fclose(Fs);

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: Button1Click(TObject *Sender)

{

STARTUPINFO si;

PROCESS_INFORMATION pi;

ZeroMemory(& si, sizeof(si));

si.cb = sizeof(si);

AnsiString s=" laba.bat " +FileListBox1-> FileName+" 1.txt";

if (CreateProcess(NULL,

s.c_str(),

NULL,

NULL,

FALSE,

0,

NULL,

NULL,

& si,

& pi

)==0)

{ }

WaitForSingleObject(pi.hProcess, INFINITE);

CloseHandle(pi.hProcess);

CloseHandle(pi.hThread);

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: Button3Click(TObject *Sender)

{

char mas[200];

OpenDialog1-> Title=" Open File";

if (OpenDialog1-> Execute())

{

char *FileNameS= OpenDialog1-> FileName.c_str();

if ((Fs=fopen(FileNameS, " rb"))==NULL) {

ShowMessage(" File is not opened");

return; }

RichEdit1-> Clear();

while(! feof(Fs))

{

fgets(mas, sizeof(mas), Fs);

RichEdit1-> Lines-> Add(AnsiString(mas));

}

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: Button4Click(TObject *Sender)

{

SaveDialog1-> Title=" Save File";

if (SaveDialog1-> Execute())

{

AnsiString FileNameR = SaveDialog1-> FileName;

RichEdit1-> Lines-> SaveToFile(FileNameR);

}

}

//---------------------------------------------------------------------------

Инспектор объектов:

Окно диалога:

Вывод: В ходе выполнения работы я научился создавать программу-оболочку, работающую с одним из стандартных консольных архиваторов для DOS (например, ARJ, AIN, HA или любой другой).