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;

注意：应用权限选对