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日期函数、日期加减

Delphi实现屏幕截图、窗口截图、指定区域截图

Delphi图像匹配算法

android实例-拍摄和分享照片、分享文本(xe8+小米2)

Delphi锁定鼠标 模拟左右键 静止一会自动隐藏鼠标

Delphi 遍历某字段并插入到combobox

Delphi读写utf-8、unicode格式文本文件

Delphi 关闭uac 单元

Delphi 2010/xe下隐藏程序在系统任务栏的图标

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

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