《解压缩动态链接库Zip.dll》使用声明
----------------------------------------------------------------
1、《解压缩动态链接库Zip.dll》具有免费版和正式版本两种，免费版本
可以无限制永久使用。
2、两种版本之间的差别：免费版有"免费版"及相关联系信息等字样。免
费版不可以隐藏进度条窗体，正式版本可自行根据需要进行选择。其它功
能均与正式版本相同。
3、正式版本的使用权仅限购买方软件中使用，购买方
信息也包含在文件中，不得将《解压缩动态链接库Zip.dll》单独进行交换、
转让和销售，一经发现，将采取技术手段封锁对该用户的后续版本的升级，
并在法律许可的最大范围追究相应的法律责任。
4、欢迎用户下载免费版进行试用，满意后再联系购买，售价仅50元人民币。
联系购买事谊请E-mail联系"EastSoft@126.com" 。
5、在使用中出现问题欢迎联系，来信时请告知详情，谢谢。为了使用解决
您所遇到的问题，建议您采用QQ与我在线实时取得联系（QQ：9562512）。
-----------------------------------------------------------------
ESM软件工作室
联系人：陈广进
E-mail：EastSoft@126.com
*****************************************************************
《解压缩动态链接库Zip.dll》使用说明及示例
*****************************************************************
为方便广大程序员在自己的程序中加入文件的解/压缩功能，值此元旦
之际,特别推出方便实用的解/压缩动态链接库Zip.dll V1.0.2.2版。目前
已经可以很方便的被各种流行的开发语言进行调用。本动态库可以让用户
对是否存贮目录结构、是否压缩子目录文件、是否显示解压缩进度条等进
行选择。详细使用说明参考包内说明文档,使用中有任何问题请E-mail
(EastSoft@126.com)联系。
从Zip.dll发布了V1.0.0.0版后,我收到了很大程序员朋友的来信,他们
大多数都是希望能够在其它语言中方便的调用,但由于在不同的开发工具的
类型（参数）之间存在很大的差异，因为我所使用的开发工具的原因,目前
还没有彻底找到了一种方法加以解决,因此现采用Ini文件作为中介,目前已
经可以在各种流行的语言中方便的调用。
以下是delphi/VB示例！
***************************Delphi示例****************************
在调用前，先根据需压缩/解压缩的文件，以及相关参数对zip.ini文件进
行设置。完成后即可参考以下代码进行调用。
Delphi调用示例及说明（将动态库zip.dll和配置文件zip.ini放在Delphi
编译后的可执行文件同一目录，也可以在声明时写上zip.dll所在路径。
动态库zip.dll和配置文件zip.ini必须在同一目录）
procedure TForm1.Button2Click(Sender: TObject);
var
MyHandle2: THandle;
CompressFile: function : Boolean;
begin
try
MyHandle2 := LoadLibrary('zip.dll');
if MyHandle2 < 32 then
raise Exception.Create('动态链接库调用失败，错误代码是：' + Inttostr(Getlasterror));
except
end;
if Myhandle2 = 0 then
begin
ShowMessage('尚未加载');
exit;
end;
CompressFile := GetProcAddress(MyHandle2, 'CompressFile');
if Assigned(CompressFile) then
begin
if CompressFile then
ShowMessage('压缩成功')
else
ShowMessage('压缩失败');
end;
try
Freelibrary(Myhandle2); // 卸载DLL
Myhandle2 := 0;
except
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
ExtractFileToDir:function : Boolean;
MyHandle3: THandle;
begin
try
MyHandle3 := LoadLibrary('zip.dll');
if MyHandle3 < 32 then
raise Exception.Create('动态链接库调用失败，错误代码是：' + Inttostr(Getlasterror));
except
end;
if Myhandle3 = 0 then
begin
ShowMessage('尚未加载');
exit;
end;
ExtractFileToDir := GetProcAddress(MyHandle3, 'ExtractFileToDir');
if Assigned(ExtractFileToDir) then
begin
if ExtractFileToDir then
ShowMessage('解压成功')
else
ShowMessage('解压失败');
end;
try
Freelibrary(Myhandle3); // 卸载DLL
Myhandle3 := 0;
except
end;
end;
******************************VB示例*****************************
在调用前，先根据需压缩/解压缩的文件，以及相关参数对zip.ini文件进行
设置。完成后即可参考以下代码进行调用。
VB调用示例及说明（将动态库zip.dll和配置文件zip.ini放在VB编译后的可
执行文件同一目录，也可以在声明时写上zip.dll所在路径。动态库zip.dll
和配置文件zip.ini必须在同一目录）
Private Declare Function CompressFile Lib "zip.dll" () As Boolean
Private Declare Function ExtractFileToDir Lib "zip.dll" () As Boolean
Private Sub Command1_Click()
If CompressFile Then
MsgBox "OK"
Else: MsgBox "F"
End If
End Sub
Private Sub Command2_Click()
If ExtractFileToDir Then
MsgBox "OK"
Else: MsgBox "F"
End If
End Sub
