Защита данных от несанкционированного доступа
Категория реферата: Рефераты по информатике, программированию
Теги реферата: изложение на тему, контрольная работа 6
Добавил(а) на сайт: Vonifat.
Предыдущая страница реферата | 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 | Следующая страница реферата