本文整理自网络,侵删。
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关闭程序close,application.terminate与halt区别
更多相关阅读请进入《Delphi》频道 >>