delphi xe android 使用System.Zip单元释放资源文件

本文整理自网络，侵删。

 
System.Zip.pas
 
var
  zip: TZipFile;
begin
  zip := TZipFile.Create;
  zip.Open(TPath.GetDocumentsPath + PathDelim +'txt.zip', TZipMode.zmRead);
  zip.ExtractAll(TPath.GetDocumentsPath + PathDelim);
  zip.Free;
 
注意：应用权限选对
 

相关阅读 >>

Delphi删除目录及子目录及所有目录下的文件

Delphi 新版 thttpclient组件同步下载文件方法

Delphi中使用低层钩子 屏蔽win、ctrl+esc、alt+tab、alt+f4

Delphi 10.4中新增功能：新的vcl tedgebrowser组件

Delphi安卓动态切换本地主题

Delphi 关闭sql server 数据库所有使用连接

Delphi getexplorerpid获取系统explorer.exe进程id

Delphi 一个定时器timer1相关的简单例子

Delphi fdmemtable中如何在已有的字段数据集上加入字段

Delphi ntfs usn 磁盘文件搜索

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

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