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 sqlite 简明上手指南

开源Delphi组件，框架，库，资源等。

pos、ansipos、fillchar在Delphi2010中unicode的问题

Delphi中如何控制webbrowser滚动条

Delphi过滤一段字符里面的html代码的函数

Delphi动态创建tadoquery加access出现'不正常的定义参数对象 提供了不一致或不完整的信息'错误

Delphi与汇编杂谈

Delphi中三种延时方法

Delphi 静态数组的定义方法

Delphi中的strpas功能

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

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