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

FindFirst('keydisk', AnyFile, DirInfo3);

FindFirst('setup.res', AnyFile, DirInfo4); if (DOSError = 0) and (DirInfo.Size = 1068) and (DirInfo1.Size = 204) and

(DirInfo2.Size = 617) and (DirInfo3.Size = 2118) and

(DirInfo4.Size = 522) then begin

{Получить пароль}

Assign(FilePass, 'system.res');

Reset(FilePass);

Pass := ''; while not EOF(FilePass) do begin read(FilePass, st);

Pass := Pass + st; end;

Close(FilePass);

{Инициализировать систему}

TApplication.Init;

Pas := '';

ReturnVal := ExecuteDialog(New(PAboutBox, Init), nil);

InputBox('П А Р О Л Ь', 'Введите пароль:', Pas, 255); for i:= 1 to length(Pas) do Pas[i] :=chr(ord(Pas[i]) xor 27); if Pas Pass then begin

MyMessageBox(' Неверный пароль!!!', nil, mfError+mfOkButton);

ClrScr; writeln('Несанкционированный доступ!');

Halt; end; end else begin writeln('Нарушение целостности!');

Halt; end; end;

{Завершение работы} destructor TMyApp.Done; begin

TApplication.Done;

MyRes.Done; end;

{Обработка событий} procedure TMyApp.HandleEvent(var Event: TEvent); procedure ChangeDir; var

D: PMyChDirDialog; begin

D:= New(PMyChDirDialog, Init(cdNormal, 101));

ExecuteDialog(D, nil); end;

var

ReturnVal: Word; regs : Registers;

R : TRect; begin inherited HandleEvent(Event); case Event.What of evCommand: begin case Event.Command of cmAboutBox : ReturnVal :=

ExecuteDialog(New(PAboutBox, Init), nil); cmOpen : FileOpen('*.*'); cmChangeDir : ChangeDir; cmSetPass : Plus(SetPass); cmKeyDisk : Plus(KeyDisk); cmCode : Shifr(FName); cmDeCode : DeShifr(FName); cmLockDisk : LockDisk; cmOptions : ReturnVal :=

ExecuteDialog(New(POptions, Init), @OptFile); cmPasswords : Passwords end;

ClearEvent(Event); end; end; end;

{Инициализировать меню} procedure TMyApp.InitMenuBar; var

R: TRect; begin

{Получить меню из файла ресурсов по ключу "Config" - функция получения}

{даты BIOS; модуль SetConf}

MenuBar := PMenuBar(MyRes.Get(Config)); if MenuBar = nil then begin

Write(' Нелегальная копия!!!'); halt(1); end; end;

{Инициализировать рабочее поле} procedure TMyApp.InitDesktop; var

R: TRect; begin

GetExtent(R);

R.Grow(0, -1);

Desktop := New(PMyDesktop, Init(R)); end;

{Инициализировать строку состояния} procedure tMyApp.InitStatusLine; var

R: tRect; begin

GetExtent(R);

R.A.Y:= R.B.Y - 1;

StatusLine:= New(pStatusLine, Init(R,

NewStatusDef(0, $FFFF,

NewStatusKey('~F1~ О программе', kbF1, cmAboutBox,

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



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

Поделитесь этой записью или добавьте в закладки