Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Лабораторная работа №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 или любой другой).

<== предыдущая лекция | следующая лекция ==>
Работа с базами данных в приложении AIR | Распределяется призовой фонд на 1, 2 и два 3 места (40, 20, 10 и 10 процентов соответственно).
Поделиться с друзьями:

mylektsii.su - Мои Лекции - 2015-2024 год. (0.009 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал