Unit ChfTypes |
Classes |
Functions |
Types |
PChiefLZArchiveHeader
StrType
TChiefLZArchiveHeader
TLZArchiveHeader
TLZCount
TLZExtStr
TLZFileRec
TLZFileStr
TLZPathStr
TLZQuestionFunc
TLZRecurse
TLZRenameFunc
TLZReply
TLZReportProc
TLZReportRec
TLZSigStr
TLZVerStr
Constants |
MaxChiefLZArchiveSize
MaxChiefLZDirectories
Variables |
Functions |
Types |
PChiefLZArchiveHeader = ^TChiefLZArchiveHeader
StrType=String
TChiefLZArchiveHeader = record
Count : TLZCount;
Files : Array[1..MaxChiefLZArchiveSize] of TLZFileRec
end;
TLZArchiveHeader = record
Signature : TLZSigStr;
Count : TLZCount
end;
TLZCount = Word
TLZExtStr = {$ifdef Win32} string
TLZFileRec = record
IsDir : Boolean;
DirID : Word;
ParentDir : Word;
FileVersion : TLZVerStr;
Compressed : Boolean;
Sizes : LongInt;
uSizes : LongInt;
Times : LongInt;
Names : TLZFileStr;
end;
TLZFileStr = String[12]
TLZPathStr = {$ifdef Win32} string
TLZQuestionFunc=Function(const aName: TLZReportRec;Const aExist:string): TLZReply
TLZRecurse = (LZNoRecurse, LZRecurseOnce, LZFullRecurse);
TLZRenameFunc = function(var Name: string): booleanoptionally used by the LZOBJ object; procedural type to ask whether an existing file should be overwritten - the filename is sent to your function in "aName" - your function should return TRUE if you want the file to be overwritten. If no function is pointed to, the default is to overwrite existing files.
TLZReply = (LZNo, LZYes, LZQuit);procedural type for status/progress information aName=file record information aSize=filesize (compressed)
TLZReportProc=Procedure(Const aName:TLZReportRec{String};Const aSize:LongInt)introduced this for LZ report and Question procedures
TLZReportRec = record
FileVersion : TLZVerStr;
Sizes : LongInt;
uSizes : LongInt;
Times : LongInt;
Names : TLZPathStr;
IsDir : Boolean;
end;
TLZSigStr = String[18]
TLZVerStr = String[8]
Constants |
Variables |