ENDCASE
addZIP_SetCompressionLevel(nCompLevel)
ENDIF
ELSE
addZIP_SetCompressionLevel(2)
ENDIF
* 指定压缩文件的路径
addZIP_ArchiveName(sArchive)
* 检查需要进行压缩的文件
sInclFiles = ALLT(STRTRAN(sInclFiles, ’ ’, ’|’))
* 建立压缩文件信息
addZIP_Include(sInclFiles) && (sInclFiles)
* 压缩文件并返回被压缩的文件数目
Return addZIP()

文件解压缩程序
* 程序名称：AUNZIP.PRG
* 程序说明：在Visual FoxPro中实现文件解压缩
* 程序要求：AUNZIP32.DLL放置在Windows的System目录或当前目录下
* 使用方法：AUNZIP(lInitialize, sArchive sDir[, sExtractFiles[, UnZIPparams]])
* 参数说明：
* lInitialize：.T. – 第一次使用本程序，.F. – 非第一次使用本程序
* sArchive： 带有扩展名的压缩文件名，如"C:/THISFILE.ZIP"
* sDir： 目标目录，如"D:/TEMP"
* sExtractFiles：需要进行解压缩的文件名称[可选]，不同文件名之间有一个空格
* 缺省："*.*"
* 例1："C:/CUSTOMER.DBF"
* 例2："C:/CUSTOMER.DBF D:/*.TXT D:/DATABASES/*.*"
* UnZIPparams：压缩参数[可选]
* F 文件更新
* D 包括目录信息
* OA 全部覆盖（缺省）
* O0 不覆盖
* OU 提问是否覆盖
* S 使用密码 (必须是最后一部分)
* 示范语句：AUNZIP(.T., "ZIPFILE", "*.DBF *.TXT Customer.doc")
* 返回参数：被解压缩的文件数目，如果没有指定压缩文件名则返回-1

* 接受参数
PARAMETERS Initialize, sArchive, sDir, sExtractFiles, UnZIPparams
PRIVATE Params, sTemp
Params = PARAMETERS()
* 声明需要的动态链接库并使当前窗口获得焦点
IF Params = 0 or Initialize
PRIVATE HWND
DECLARE INTEGER GetActiveWindow IN win32api
HWND = GetActiveWindow()
DECLARE addUNZIP_Initialise IN AUNZIP32
DECLARE SHORT addUNZIP_SetParentWindowHandle IN AUNZIP32 SHORT @ HWindow
DECLARE SHORT addUNZIP_ArchiveName IN AUNZIP32 STRING @ sArchName
DECLARE SHORT addUNZIP_RestoreStructure IN AUNZIP32 SHORT @ nResStr
DECLARE SHORT addUNZIP_Freshen IN AUNZIP32 SHORT @ nFreshn
DECLARE SHORT addUNZIP_Include IN AUNZIP32 STRING @ sFileName
DECLARE SHORT addUNZIP_ExtractTo IN AUNZIP32 STRING @ sExtrTo
DECLARE SHORT addUNZIP_Register IN AUNZIP32 STRING @ RegName, INTEGER @ RegNum