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

If WhatDo = KeyDisk then MakeComFile(4);

{Выполнить дописывание}

SwapVectors;

Exec( MainDir + 'plus.com ', CmdLine + ' ' + MainDir +
WhatDo);

SwapVectors;

DelComFile(1);

If WhatDo = SetPass then DelComFile(2);

If WhatDo = KeyDisk then DelComFile(4);

{Обработчик ошибок} if DosError 0 then

CheckExec else begin regs.ah := $4D; with regs do msdos(regs); case Regs.AH of

0 : MyMessageBox(' Файл ' + FName + ' защищен.', nil, mfInformation + mfOkButton);

1 : MyMessageBox(' Ctrl-C или Ctrl-Break.', nil, mfError + mfOkButton);

2 : MyMessageBox(' Критическая ошибка устройства.', nil, mfError + mfOkButton);

3 : MyMessageBox(' TSR - программа.', nil, mfError + mfOkButton); end; end; end else MyMessageBox(' Ошибка выбора файла !!! ', nil, mfError + mfOkButton); end else MyMessageBox(' Файл не выбран!!! ', nil, mfError + mfOkButton); end;

{**************************************************************************
**}
{*----------===== Б Л О К И Р О В К А В И Н Ч Е С Т Е Р А ======------
-*}
{**************************************************************************
**} procedure LockDisk; label end_; var

Regs: registers;

Err : string;

Inst: byte; begin

{Проверка наличи программы в памяти} asm push ax push dx mov Inst, 0 mov ax,1059h mov dx,2517h int 13h

cmp ax,2517h jne End_ cmp dx,1059h jne End_ mov Inst, 1

End_: pop dx pop ax end; if Inst = 0 then begin

MakeComFile(3);

{Установить защиту}

SwapVectors;

SetIntVec($09, Int09_Save);

Exec(MainDir + 'block.com', '');

GetIntVec($09, Int09_Save);

SwapVectors;

{Обраюотчик ошибок} if DosError 0 then

CheckExec else begin regs.ah := $4D; with regs do msdos(regs); case Regs.AH of

0 : MyMessageBox(' Ненормальное завершение.', nil, mfError + mfOkButton);

1 : MyMessageBox(' Ctrl-C или Ctrl-Break.', nil, mfError + mfOkButton);

2 : MyMessageBox(' Критическая ошибка устройства.', nil, mfError + mfOkButton);

3 : MyMessageBox(' Винчестер блокирован.', nil, mfInformation + mfOkButton); { TSR } end; end; end else MyMessageBox(' Защита уже установлена.', nil, mfError + mfOkButton); end;

{Изменить стандартную палитру} function TDirDialog.GetPalette: PPalette; const

{Синяя палитра}

CMyCluster =
#64#65#66#67#68#69#70#71#72#73#74#75#76#77#78#79#80#81#82+

#83#84#85#86#87#88#89#90#91#92#93#94#95;

P: string [32] = CMyCluster; begin

GetPalette := @P; end;

{Окно работы с каталогами} constructor TMyChDirDialog.Init(AOptions: Word; HistoryId: Word); var

R : TRect;

ScrollBar: PScrollBar;

CurDir : DirStr; begin

{ Создание окна }

R.Assign(16, 2, 64, 20);

TDialog.Init(R, 'Изменить катлог');

Options := Options or ofCentered;

{ Строка ввода имени каталога }

R.Assign(3, 3, 30, 4);

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



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

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