Delphi XE2 新功能试用：ZIP压缩文件的操作

http://www.quping.com/blog/HTML/82.html

 

uses
  System.Zip;

procedure TForm1.FormCreate(Sender: TObject);
var
  zf:TZipFile;
  i:Integer;
begin
  zf:=TZipFile.Create;

  //创建ZIP压缩文件
  zf.Open('test.zip',zmWrite);
  zf.Add('.\Project1.exe');
  zf.Add('.\新建文件夹\新建文本文档.txt');
  zf.Close;
  
  //释放ZIP压缩文件
  zf.Open('.\test.zip',zmRead);
  for i:=0 to zf.FileCount-1 do ShowMessage(zf.FileName[i]);
  zf.ExtractAll('.\Extract\');
  zf.Close;

  zf.Free;
end;