' CAB10.inc
' Profaninterface für die CAB10.dll (Freeware)
' (C) 2003 Dennis Schulmeister - Alle Rechte vorbehalten
' Dennis.Schulmeister@web.de
'
' (C) der DLL - © 2001 Terry Reese

Def @CabAbout$(0) !"Cab10.dll", "CABABOUT"
Def @CabCompressInitialize(0) !"Cab10.dll", "CABCOMPRESSINITIALIZE"
Def @CabDecompressInitialize(0) !"Cab10.dll", "CABDECOMPRESSINITIALIZE"
Def @CabCreate(1) !"Cab10.dll", "CABCREATE"
Def @CabAddFile(3) !"Cab10.dll", "CABADDFILE"
Def @CabClose(1) !"Cab10.dll", "CABCLOSE"
Def @CabEnum$(1) !"Cab10.dll", "CABENUM"
Def @CabExtract(2) !"Cab10.dll", "CABEXTRACT"
Def @CabCompressTerminate(0) !"Cab10.dll", "CABCOMPRESSTERMINATE"
Def @CabDeCompressTerminate(0) !"Cab10.dll", "CABDECOMPRESSTERMINATE"
Def @ZLib_Initialize(0) !"Cab10.dll", "ZLIB_INITIALIZE"
Def @ZLib_CompressString$(3) !"Cab10.dll", "ZLIB_COMPRESSSTRING"
Def @ZLib_DeCompressString$(4) !"Cab10.dll", "ZLIB_DECOMPRESSSTRING"
Def @ZLib_AddToZip(2) !"Cab10.dll", "ZLIB_ADDTOZIP"
Def @ZLib_AddToZipEx(3) !"Cab10.dll", "ZLIB_ADDTOZIPEX"
Def @ZLib_ExtractFromZIP(1) !"Cab10.dll", "ZLIB_EXTRACTFROMZIP"
Def @ZLib_Close(0) !"Cab10.dll", "ZLIB_CLOSE"
Def @ZLib_Terminate(0) !"Cab10.dll", "ZLIB_TERMINATE"

Declare Cab10dll&

Proc cab10_initialize
     .Handle& = @UseDLL("CAB10.dll")
     @CabCompressInitialize()
     @CabDecompressInitialize()
     @ZLib_Initialize()
EndProc

Proc cab10_terminate
     @ZLib_Terminate()
     @CabCompressTerminate()
     @CabDecompressTerminate()
     FreeDLL .Handle&
EndProc

Proc ZLib_ExtractZIP
     Parameters ZIP_File$, Destination$
     Declare Temp$, Temp&
     Temp$ = @GetDir$("@")
     MkDir Destination$
     ChDir Destination$
     Temp& = ZLib_ExtractFromZip(@Addr(ZIP_File$))
     ChDir Temp$
     Return Temp&
EndProc