[<<Previous Entry]
[^^Up^^]
[Next Entry>>]
[Menu]
[About The Guide]
unit ECO_cfi; { cfi = compression file interface }
interface
uses
dos
;
const
cfismartmode : boolean = false; { niet verder zoeken na geen hit }
cfisfx : boolean = false; { niet in exe & com kijken }
type
cfityperecord = record
cfiname : string[67]; {filename only 12 chars!!!!!} {even meer !!}
cfipath : string[67]; {directory if used}
cficrc : longint; {crc check}
cfipsize : longint; {packed size file}
cfiosize : longint; {original size file}
cfitime : longint; {dos packed time}
cfiattr : byte; {zip and lzh/lzs only}
cfimethod : word; {soort compressie}
cfiptotal : longint; {total packed size}
cfiototal : longint; {total original size}
end;
str79 = string[79];
str8 = string[8];
var
cfierror : boolean;
cfifile : file; { used by all routines }
cfipos : longint; { position where info begins!! }
cfifilename : str79;
cfitype : cfityperecord;
cfityp : byte; { type archive : zoo, arc, lzh etc }
readcentralheader : boolean; { read also zip central header default false }
procedure closecfi;
function opencfifile(f : str79) : boolean;
function cfinext : boolean;
function dectohex(l: longint; cfityp: byte) : str8;
This page created by ng2html v1.05, the Norton guide to HTML conversion utility.
Written by Dave Pearson