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

发布时间：2020-12-15 10:11:19 所属栏目：大数据来源：网络整理

导读：我可以使用Delphi创建Windows XP的压缩(Zipped)文件夹吗？解决方法如果您使用的是Delphi X2,只需使用System.Zip中的TZipFile：要压缩文件夹,请使用： TZipFile.ZipDirectoryContents('ZipFile.zip','C:Zipthisrightnow'); 要Zip文件,请使用： Zip :=

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

解决方法

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

要压缩文件夹,请使用：

TZipFile.ZipDirectoryContents('ZipFile.zip','C:Zipthisrightnow');

要Zip文件,请使用：

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!