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

5: MyMessageBox(' Ошибка DOS № ' +

St + '"Неверный код доступа к файлу"', nil, mfError + mfOkButton);

6: MyMessageBox(' Ошибка DOS № ' +

St + '"Неверный код системного обработчика файла"', nil, mfError + mfOkButton);

8: MyMessageBox(' Ошибка DOS № ' +

St + ' "Недостаточно памяти"', nil, mfError + mfOkButton);

10: MyMessageBox(' Ошибка DOS № ' +

St + ' "Неверная среда"', nil, mfError + mfOkButton);

11: MyMessageBox(' Ошибка DOS № ' +

St + ' "Неправильный формат"', nil, mfError + mfOkButton);

18: MyMessageBox(' Ошибка DOS № ' +

St + '"Нет свободных обработчиков для файлов"', nil, mfError + mfOkButton); end; end;

procedure MakeComFile(k: byte); const

S : array [1..4] of string = ('c:sub_rosaplus.',
'c:sub_rosapassw.',

'c:sub_rosablock.',
'c:sub_rosakeydisk.');

Size : array [1..4] of word = (1068, 204, 617, 2118);

Inden: array [1..4, 1..3] of byte = ((ord('ы'), 26 , ord('Р')),

(ord('ы'), 39 , ord('Р')),

(ord('щ'), ord('Й'), ord('[pic]')),

(ord('щ'), ord('А'), ord(''))); var

I, Tmp : byte;

F : array [1..4, 1..2] of file ;

M : array [1..2200] of byte ;
NumRead, NumWritten: Word;

begin assign(F[k, 1], S[k]); reset(F[k, 1], 1); assign(F[k, 2], S[k]+'com'); rewrite(F[k, 2], 1); for i := 1 to 3 do begin

BlockRead(F[k, 1], tmp, 1, NumRead);

BlockWrite(F[k, 2], Inden[k, i], 1, NumWritten); end;

BlockRead(F[k, 1], M, Size[k]-3, NumRead);

BlockWrite(F[k, 2], M, Size[k]-3, NumWritten); close(F[k, 1]); close(F[k, 2]); end;

procedure DelComFile(k: byte); const
{ S: array [1..4] of string =

('plus.com', 'passw.com', 'block.com', 'keydisk.com');}
S : array [1..4] of string = ('c:sub_rosaplus.com',

'c:sub_rosapassw.com',

'c:sub_rosablock.com',

'c:sub_rosakeydisk.com'); var

F: array [1..4] of file; begin

Assign(F[k], S[k]);

Erase(F[k]); end;

{**************************************************************************
**}
{*----------=========== Д О П И С А Т Ь К Ф А Й Л У ==========------
-*}
{**************************************************************************
**} procedure Plus(WhatDo: string); var

FileStr, Err: string;

CmdLine : string;

I : byte;

FileName : FNameStr;

Regs : Registers; begin

{Проверка условий} if Length(FName) > 3 then begin if (copy(FName, length(FName)-2, 3) = 'EXE') or

(copy(FName, length(FName)-2, 3) = 'COM') then begin

{Преобразование имени файла} for i:= length(fname) downto 1 do if fname[i] = '' then begin

CmdLine := copy(FName, i+1, length(FName) - i); break; end; for i := 1 to length(CmdLine) do if CmdLine[i] in ['A'..'Z'] then

CmdLine[i] := chr(ord(CmdLine[i]) + 32); for i := 1 to length(MainDir) do if MainDir[i] in ['A'..'Z'] then

MainDir[i] := chr(ord(MainDir[i]) + 32);

MakeComFile(1);

If WhatDo = SetPass then MakeComFile(2);

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



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

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