Предыдущая страница реферата | 21  22  23  24  25  26  27  28  29  30  31 | Следующая страница реферата

Insert(New(PButton, Init(

R, 'Ага', cmFileOpen, bfNormal)));

Inc(R.A.Y,3); Inc(R.B.Y,3); end; if AOptions and fdReplaceButton 0 then begin

Insert(New(PButton, Init(

R, 'Замена',cmFileReplace, bfNormal)));

Inc(R.A.Y,3); Inc(R.B.Y,3); end; if AOptions and fdClearButton 0 then begin

Insert(New(PButton, Init(

R, 'Удал.',cmFileClear, bfNormal)));

Inc(R.A.Y,3); Inc(R.B.Y,3); end;

Insert(New(PButton, Init(

R, 'Нека', cmCancel, bfNormal)));

{ Информационная панель с параметрами файла }

R.Assign(1, 16, 48, 18);

Insert(New(PFileInfoPane, Init(R)));

SelectNext(False);

{ Загрузка каталога } if AOptions and fdNoLoadDir = 0 then begin

FileList^.ReadDirectory(WildCard);

Directory:= NewStr(GetCurDir); end; end;

Var

MyApp: TMyApp; {Переменная основного объекта}

Begin

WriteLn('Система защиты данных от НСД. Версия 1.0 beta.'+

+' 1996 МГВРК Еганов М. Ю., Юзефович А. Г.');

GetIntVec($09,Int09_Save);

MyApp.Init;

MyApp.Run;

MyApp.Done;

SetIntVec($09, Int09_Save);
End.

Приложение 2

Листинг библиотек

{**************************************************************************

*}
{**************************************************************************

*}

{**

**}

{** КП "ЗАЩИТА ДАННЫХ ОТ НСД"

**}

{** Выполнил учащийся гр.46491 ЕГАНОВ МАКСИМ

**}

{** 1996

**}

{**

**}

{** Программа инсталляции

**}
{**************************************************************************

*}
{**************************************************************************

*}

Program Install;

Uses

App, Dialogs, Drivers, Menus, MsgBox, Objects,

Рекомендуем скачать другие рефераты по теме: конспект урока 5 класс, оформление доклада.





Предыдущая страница реферата | 21  22  23  24  25  26  27  28  29  30  31 | Следующая страница реферата