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 读取image组件转换base64编码

Delphi 通过有道接口实现翻译

Delphi bmp 转换jpg

Delphi webbrowser获取iframe页面内容

用Delphi的rtti实现对象的xml持久化

Delphi之tclientsocket和tserversocket使用tcp keepalive心跳机制实现“断网”、"断电"检测

Delphi exe执行程序dos参数的运用

Delphi 如何禁止用户更改窗体的大小

Delphi twebbrowser与嵌入youtube视频崩溃

Delphi 10.2 创建并使用资源文件

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

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