我可以使用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