procedure TForm1.FlatButton1Click(Sender: TObject);
var
FilePath:String;
// numberzip:Smallint;
begin
FilePath:=ExtractFilePath(Application.ExeName)+'顺德';
{ Thread1:=TShowProgress.create(FilePath); //创建线程计算总目录
Thread1.Priority:=tpNormal;
Thread1.FreeOnTerminate:=True;
}
FilePath:=ExtractFilePath(Application.ExeName)+'sd.cab';
VCLZip1.ZipName:=FilePath;
// FilePath:=ExtractFilePath(Application.ExeName)+'顺德/*.*';
FilePath:='./顺德/*.*';
VCLZip1.FilesList.Add(FilePath);
VCLZip1.Recurse:=True;
VCLZip1.StorePaths:=True;
VCLzip1.PackLevel:=9;
// VCLZip1.Password:='944500';
try
VCLZip1.Zip;
Except
showmessage('Error!');
end;
MessageBox(0,'压缩成功','成功',MB_OK+MB_ICONINFORMATION);
end;
//解压缩 MemoPad,TMemo控件
procedure TForm1.FlatButton2Click(Sender: TObject);
var
FilePath:string;
NumUnzipped:integer;
i:integer;
begin
FilePath:=ExtractFilePath(Application.ExeName)+'sd.cab';
with VCLUnZip1 do
begin
ZipName := Filepath; // set the zip filename
ReadZip; // open it and read its information
FilesList.Add('*.*');
FilesList.Add( Filename[Count-1] ); // extract last entry in zipfile
DoAll := False; // Don't unzip all files
FilePath:='D:/王锋/Setup';
DestDir :=FilePath ; // Set destination directory
RecreateDirs := True; // don't recreate directory structures
RetainAttributes := True; // Set attributes to original after unzipping
MemoPad.Clear;
MemoPad.Lines.Add(VCLUnZip1.Filename[CountUnzip]);
NumUnzipped := Unzip; // Extract files, return value is the number of files actually unzipped
MessageBox(0,'压缩成功','成功',MB_OK+MB_ICONINFORMATION);
end;
end;
VCLZIP样例
最新推荐文章于 2018-12-10 16:19:54 发布