VCLZIP样例

最新推荐文章于 2015-07-27 12:07:28 发布

Ray2312

最新推荐文章于 2015-07-27 12:07:28 发布

阅读量1.3k

点赞数

分类专栏： DELPHI相关文章标签： thread attributes integer string

DELPHI相关专栏收录该内容

11 篇文章

订阅专栏

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;