使用Delphi创建压缩(Zipped)文件夹

我可以使用Delphi创建Windows XP的压缩(Zipped)文件夹吗？

解决方法

如果您使用的是Delphi X2,只需使用System.Zip中的TZipFile：

要压缩文件夹,请使用：

TZipFile.ZipDirectoryContents('ZipFile.zip','C:\Zip\this\right\Now');

要Zip文件,请使用：

Zip := TZipFile.Create;
try
  Zip.Open('ZipFile.zip',zmWrite);

  Zip.Add('FiletoBeZipped.txt');
  Zip.Add('ThisWillBeCompressedAgainForSureAndBecomeSmaller.zip');
finally
  Zip.Free;
end