Unit ZIPDLL

ZIPDLL.PAS - Delphi v2 translation of file "wizzip.h" by Eric W. Engler } { Import Unit for ZIPDLL - put this into the "uses" clause of any other unit that wants to access the DLL. } { I changed this to use dynamic loading of the DLL in order to allow the user program to control when to load and unload the DLLs. Thanks to these people for sending me dynamic loading code: Ewart Nijburg, Nijsoft@Compuserve.com P.A. Gillioz, pag.aria@rhone.ch

Classes

Functions

Types

PWord
PZipParms
ZipOpt
ZipParms

Constants

Variables

GetZipDllVersion
ZipDllExec
ZipDllHandle


Functions


Types


PWord    = ^Word

PZipParms = ^ZipParms

ZipOpt = (ZipAdd, ZipDelete);

ZipParms = record
Handle : THandle;
Caller : Pointer;
Version : LongInt;
ZCallbackFunc : ZFunctionPtrType;
fTraceEnabled : LongBool;
PZipPassword : PChar;
fSuffix : LongBool;
fEncrypt : LongBool;
fSystem : LongBool;
fVolume : LongBool;
fExtra : LongBool;
fNoDirEntries : LongBool;
fDate : LongBool;
fVerboseEnabled : LongBool;
fQuiet : LongBool;
fLevel : longint;
fComprSpecial : LongBool;
fCRLF_LF : LongBool;
fJunkDir : LongBool;
fRecurse : LongBool;
fGrow : LongBool;
fForce : LongBool;
fMove : LongBool;
fDeleteEntries : LongBool;
fUpdate : LongBool;
fFreshen : LongBool;
fJunkSFX : LongBool;
fLatestTime : LongBool;
Date : Array[0..7] of Char;
argc : LongInt;
PZipFN : PChar;
seven : LongInt;
PFileNames : array[0..FilesMax] of PChar;
end;
This record is very critical. Any changes in the order of items, the size of items, or modifying the number of items, may have disasterous results. You have been warned!

Constants


Variables

GetZipDllVersion : function : DWORD

ZipDllExec : function(ZipRec: PZipParms): DWORD

NOTE: Freshen, Update, and Move are only variations of Add } { Main call to execute a ZIP add or Delete. This call returns the number of files that were sucessfully operated on.

ZipDllHandle : THandle