Delphi VCLUnZip组件解压缩文件用法

本文整理自网络，侵删。

 
procedure TForm1.Button1Click(Sender: TObject);
begin
VCLUnZip1.ZipName:=ExtractFilePath(ParamStr(0))+'abc.zip';
VCLUnZip1.ReadZip;
VCLUnZip1.DestDir:=ExtractFilePath(ParamStr(0));
VCLUnZip1.RecreateDirs:=True;//是否创建子目录
VCLUnZip1.DoAll := True;
VCLUnZip1.OverwriteMode := Always;
VCLUnZip1.Password := '';
VCLUnZip1.UnZip;
end;

procedure TForm1.VCLUnZip1TotalPercentDone(Sender: TObject; Percent: Integer);
begin
ProgressBar1.Position:=Percent;
end;
 

相关阅读 >>

Delphi api 做的 serversocket 例子

Delphi 在状态条中显示进度条，webbrowser示例

Delphi xe使用tjsonobject解析json数据

Delphi webbrowser不能复制粘贴问题的解决办法

Delphi 验证ip地址

Delphi 获取网卡mac代码可用2020.01.22

Delphi urldownloadtofile 支持进度条

Delphi 获取指定年月的周、日数

Delphi 文件/流的加密解密方法

Delphi的字符串与16进制的相互转换函数的汇编代码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi VCLUnZip组件解压缩文件用法