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 回车 选择下一个控件

Delphi tchart 的使用

Delphi使用idhttp 获取 httpsurl内容

Delphi with do和for do语句

Delphi 服务操作

Delphi 实现英汉字典的转换

Delphi xmldocument控件之xml

Delphi utf8处理单元

Delphi wmi 获取网络信息

Delphi中adoquery执行错误的捕捉

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

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