Предыдущая страница реферата | 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 | Следующая страница реферата