Предыдущая страница реферата | 12  13  14  15  16  17  18  19  20  21  22 | Следующая страница реферата

Password, OutputFileName : string;

Password1 : string;

Exten : string[3];

SCode, Temp, Ext, TByte, Code: word;

I, J, K : byte;

Position : LongInt;

NowPos : real;

TPassword : array [1..255] of word;

MasByte, Mas, MasEnd, PS : array [1..64] of word;

T : array [0..64] of word;

DirInfo : SearchRec;

begin if (length(InputFileName) > 3) and

(copy(InputFileName, length(InputFileName)-2, 3) = 'M&A') then begin

Password := '';

Password1 := '';

InputBox('П А Р О Л Ь', ' Введите пароль:', Password, 255);

InputBox('П А Р О Л Ь', 'Введите пароль еще раз:', Password1, 255); if (Password = Password1) and (length(Password)0) then begin

FindFirst(InputFileName, AnyFile, DirInfo); if DOSError = 0 then begin

Assign(InpF, InputFileName);

Reset(InpF);

Position := 0;

Exten := ''; for i:= 1 to 3 do begin

Read(InpF, Temp);

Exten := Exten + chr(Temp); end; for i := length(InputFileName) downto 1 do if InputFileName[i] = '.' then begin

OutputFileName := copy(InputFileName, 1, i) + Exten; break; end;

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



Предыдущая страница реферата | 12  13  14  15  16  17  18  19  20  21  22 | Следующая страница реферата

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