Защита данных от несанкционированного доступа
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: реферати, реферат на тему
| Добавил(а) на сайт: Ермилов.
Предыдущая страница реферата | 24 25 26 27 28 29 30 31 32 33 34 | Следующая страница реферата
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(' Ненормальное завершение.',
Рекомендуем скачать другие рефераты по теме: баллов, культура шпори.
Категории:
Предыдущая страница реферата | 24 25 26 27 28 29 30 31 32 33 34 | Следующая страница реферата
Главная