delphi 释放ZIP压缩文件

uses System.Zip;

function UnZipFile(zipFile: String; extrPath: String): Boolean;

var

zf: TZipFile;

i: Integer;

begin

Result := false;

if Not FileExists(zipFile) then

Exit;

zf := TZipFile.Create;

try

// 释放ZIP压缩文件

zf.Open(zipFile, zmRead);

zf.ExtractAll(extrPath);

zf.Close;

Result := DirectoryExists(extrPath);

finally

zf.Free;

end;

end;