本文整理自网络,侵删。
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 使用onvalidate事件或onvalidating事件验证在输入字段(tedit)中输入的值
更多相关阅读请进入《Delphi》频道 >>