DECLARE FUNCTION CabCompressInitialize Lib "cab10.dll" _ Alias "CABCOMPRESSINITIALIZE" () AS LONG DECLARE FUNCTION CabDecompressInitialize lib "cab10.dll" _ Alias "CABDECOMPRESSINITIALIZE" () AS LONG DECLARE FUNCTION CabCreate LIB "cab10.dll" _ Alias "CABCREATE" (BYval aSource AS String) AS LONG DECLARE FUNCTION CabAddFile lib "cab10.dll" _ Alias "CABADDFILE" (BYVAL hCabFile AS LONG, _ BYVal sSource AS String, _ BYval sRename AS String) AS LONG DECLARE FUNCTION CabClose lib "cab10.dll" _ Alias "CABCLOSE" (BYVAL hCabFile AS LONG) AS LONG DECLARE FUNCTION CabEnum lib "cab10.dll" _ Alias "CABENUM" (BYval sSource AS String) AS STRING DECLARE FUNCTION CabExtract lib "cab10.dll" _ Alias "CABEXTRACT" (BYval sSource AS string, _ BYval sDestDir AS string) AS LONG DECLARE FUNCTION CabCompressTerminate lib "cab10.dll" _ alias "CABCOMPRESSTERMINATE" () AS LONG DECLARE FUNCTION CabDecompressTerminate lib "cab10.dll" _ alias "CABDECOMPRESSTERMINATE" () AS LONG DECLARE FUNCTION CabAbout lib "cab10.dll" _ Alias "CABABOUT" () AS STRING '//ZLIB Declares DECLARE FUNCTION ZLIB_Initialize lib "cab10.dll" _ Alias "ZLIB_INITIALIZE" () AS LONG DECLARE FUNCTION ZLIB_CompressString lib "cab10.dll" _ ALIAS "ZLIB_COMPRESSSTRING" _ (BYVAL pString AS LONG, _ BYVAL strlen AS LONG, _ BYVAL flags AS LONG) AS STRING DECLARE FUNCTION ZLIB_DecompressString lib "cab10.dll" _ Alias "ZLIB_DECOMPRESSSTRING" _ (BYVAL pString AS LONG, _ BYVAL strlen AS LONG, _ BYVAL OriginalSize AS LONG, _ BYVAL flags AS LONG) AS STRING DECLARE FUNCTION ZLIB_ExtractFromzip Lib "cab10.dll" _ Alias "ZLIB_EXTRACTFROMZIP" _ (BYval sZipName AS string) AS LONG DECLARE FUNCTION ZLIB_AddToZip lib "cab10.dll" _ ALIAS "ZLIB_ADDTOZIP" _ (BYval sZipSource AS string, _ BYval sZipDest AS string) AS LONG DECLARE FUNCTION ZLIB_AddToZipEx lib "cab10.dll" _ Alias "ZLIB_ADDTOZIPEX" _ (BYval sZipSource AS string, _ BYVal sZipName AS string, _ BYVAL Flags AS long) AS LONG DECLARE FUNCTION ZLIB_Close lib "cab10.dll" _ Alias "ZLIB_CLOSE" () AS LONG DECLARE FUNCTION ZLIB_Terminate lib "cab10.dll" _ Alias "ZLIB_TERMINATE" () AS LONG %Z_PATH = &h0001 %Z_CLOSE = &h0002 %K_NULL = 0 %R_NULL = 1