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

{ --- запись в буфер заголовка архива --- }

Type

ByteField = array[0..6] of byte;

Const

Header : ByteField = ( $56, $53, $31, $00, $00, $00, $00 );

begin

If Create then

begin

Move(Header,OutBuf[0],7);

OutCounter:=7;

end

else

begin

Move(Header[3],OutBuf[0],4);

OutCounter:=4;

end;

end;

procedure SaveBufFATInfo;

{ --- запись в буфер всей информации по файлу --- }

Var I : byte;

St : PathStr;

R : SearchRec;

begin

St:=ParamStr(3);

For I:=0 to Length(St)+1 do

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



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

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