Delphi XE2支持ZIP压缩文件的操作了


本文整理自网络,侵删。

 

Delphi XE2支持ZIP压缩文件的操作了,新增 System.Zip 单元, 可用一句话压缩整个文件夹,太强大了,如下是一小段测试的代码:

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;

相关阅读 >>

Delphi 的字符及字符串 - char、ansichar、widechar、pchar、pansichar、pwidechar

Delphi中clientdataset的用法小结

Delphi 提取标签之间的字符串(重复标签)

Delphi 判断指定字符串是否开头 startstext用法

Delphi中formatdatetime函数的用法

Delphi ado 连接mssql数据库

Delphi listview1 图标不齐,错乱解决方法

Delphi程序禁止结束进程

Delphi 与 xml 示例(直接利用ixmldocument)

Delphi完美的线程注入和卸载

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...