內主要就是 TZipFile 類, 最方便使用的是它的類方法:

TZipFile.ExtractZipFile()       //解壓 Zip 文件到指定文件夾
TZipFile.IsValid()              //判斷指定文件是否是有效的 Zip 文件
TZipFile.ZipDirectoryContents() //壓縮指定路徑下的所有文件

測試:

uses System.Zip;

{ 把 C:\Temp\TestDir 下的所有文件壓縮到 C:\Temp\Test.zip }
procedure TForm1.Button1Click(Sender: TObject);
 
begin
  TZipFile.ZipDirectoryContents(‘C:\Temp\Test.zip‘, ‘C:\Temp\TestDir\‘); //參數3可以指定壓縮算法
end;

{ 把 C:\Temp\Test.zip 解壓到 C:\Temp\TestDir2\ }
procedure TForm1.Button2Click(Sender: TObject);
begin
  TZipFile.ExtractZipFile(‘C:\Temp\Test.zip‘, ‘C:\Temp\TestDir2\‘);
end;

使用實例化類的方式:

uses System.Zip;

 
{ 壓縮 }
procedure TForm1.Button1Click(Sender: TObject);
var
  zip: TZipFile;
begin
  zip := TZipFile.Create;
  zip.Open(‘C:\Temp\001.zip‘, TZipMode.zmWrite); //準備要壓縮為 001.zip
  zip.Add(‘C:\Temp\Test.txt‘, ‘Test.txt‘);       //參1是要壓縮的文件; 參2是要使用的文件名; 參數3可指定壓縮算法
//  zip.Add...
//  zip.Close; //Close 時才執行實際壓縮過程; 不過在銷毀前會調用它
 

  zip.Free;
end;

{ 解壓 }
procedure TForm1.Button2Click(Sender: TObject);
var
  zip: TZipFile;
begin
  zip := TZipFile.Create;
  zip.Open(‘C:\Temp\001.zip‘, TZipMode.zmRead);
  zip.ExtractAll(‘C:\Temp\002\‘);
  zip.Free;
end;

Delphi XE2 新增 System.Zip 單元, 可用一句話壓縮整個文件夾了