Delphi XE5 android 使用System.Zip单元释放资源文件

本文整理自网络，侵删。

 介绍

本文章介绍了Delphi XE5 android 使用System.Zip单元释放资源文件，在写代码之前，需要先引用
System.Zip.pas


然后编写如下的代码
var

  zip: TZipFile;

begin
  //首先创建对象
  zip := TZipFile.Create;
  //打开需要解压缩的Zip文件
  zip.Open(TPath.GetDocumentsPath + PathDelim +'txt.zip', TZipMode.zmRead);
  //解压缩所有的文件到指定的目录
  zip.ExtractAll(TPath.GetDocumentsPath + PathDelim);
  //释放资源
  FreeAndNil(zip);

end; 

相关阅读 >>

Delphi pchar和array [0..255] of char的区别

Delphi debug和release区别

Delphi utf-8

Delphi webbrowser设置自己定义user-agent

Delphi xe下文件转base64编码函数

Delphi richedit接受消息的问题

Delphi 限制文本框中只接受数字

Delphi idhttp post 提交 json

Delphi shgetfileinfo函数

Delphi 时间耗时统计

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

转载请注明出处：木庄网络博客 » Delphi XE5 android 使用System.Zip单元释放资源文件