Защита данных от несанкционированного доступа
Категория реферата: Рефераты по информатике, программированию
Теги реферата: изложение на тему, контрольная работа 6
Добавил(а) на сайт: Vonifat.
Предыдущая страница реферата | 21 22 23 24 25 26 27 28 29 30 31 | Следующая страница реферата
{Открыть файлы}
ToCopy := 'c:';
ToCopy := ToCopy + copy(FromCopy, 3, length(FromCopy) - 2); assign(Source, FromCopy); assign(Target, ToCopy); reset(Source, 1); rewrite(Target, 1);
Temp := 0;
{Копировать} repeat
BlockRead(Source, Buf, Sizeof(Buf)-1, NumRead); if FromCopy = 'a:sub_rosasub_rosa.exe' then begin
TempPos := 100*Temp/TempLength;
Temp := Temp + 2.5;
GotoXY(17, 25); if (TempPos > 98) and (TempPos < 100) then write('100.0 %') else write(TempPos: 4: 1, ' %'); end;
{Обработчик ошибок} if (NumReadSizeof(Buf)-1) and (not EOF(Source)) then begin
WriteLn;
WriteLn('Ошибка чтения с диска');
SetIntVec($23, Save23hInt);
SetIntVec($1b, Save1bhInt); halt; end;
BlockWrite(Target,Buf,NumRead,NumWrite);
If NumReadNumWrite then begin
WriteLn;
WriteLn('На диске не хватает места для записи');
SetIntVec($23, Save23hInt);
SetIntVec($1b, Save1bhInt); halt; end; until NumRead=0; close(Source); close(Target); end;
Var
Directory: string; {Куда копировать}
Begin {Основная часть программы}
GetIntVec($23, Save23hInt); {Подменить вектора прерываний 23h, 1bh}
GetIntVec($1b, Save1bhInt); {Отключение Ctrl-C или Ctrl-Break}
SetIntVec($23, @My23hInt);
SetIntVec($1b, @My23hInt);
SetCursorSize(32, 0);
{$I-}
Directory:='c:sub_rosa'; {Создать каталог для установки}
MkDir(Directory); if IOResult 0 then {Обработчик ошибок} begin
WriteLn('Система уже была инсталлирована');
SetIntVec($23, Save23hInt);
SetIntVec($1b, Save1bhInt); halt; end;
{$I+}
{Создать файл ресурсов с привязкой к уникальным параметрам BIOS}
MyStream := New(PBufStream, Init('c:sub_rosaSetup.res', stCreate,
2048));
MyRes.Init(MyStream);
RegisterType(RMenuBar);
CreateMenuBar;
MyRes.Done;
{Копировать файлы}
CopyFyle('a:sub_rosablock.');
CopyFyle('a:sub_rosakeydisk.');
CopyFyle('a:sub_rosaplus.');
CopyFyle('a:sub_rosapassw.');
CopyFyle('a:sub_rosasystem.res');
GotoXY(1, 25);
Write('Инсталлировано');
CopyFyle('a:sub_rosasub_rosa.exe');
Рекомендуем скачать другие рефераты по теме: конспект урока 5 класс, оформление доклада.
Предыдущая страница реферата | 21 22 23 24 25 26 27 28 29 30 31 | Следующая страница реферата