delphi TZipFile 用法

{-------------------------------------------------------------------------------

-Klasör Sıkıştırma ZIP

-------------------------------------------------------------------------------}

function TfrmMain.zipFolder(ArchiveName, FilePath: String): boolean;

var Zip:TZipFile;

begin

Zip:=TZipFile.Create;

try

zip.ZipDirectoryContents(ArchiveName,FilePath );

Result:=true;

except

REsult:=false;

end;

FreeAndNil(zip);

end;

{-------------------------------------------------------------------------------

-Dosya Sıkıştırma ZIP

-------------------------------------------------------------------------------}

function TfrmMain.zipFile(ArchiveName, Filename: String): boolean;

var Zip:TZipFile;

begin

Zip:=TZipFile.Create;

try

if FileExists(ArchiveName) then

DeleteFile(ArchiveName);

zip.Open(ArchiveName,zmWrite);

zip.Add(Filename);

zip.Close;

Result:=true;

except

REsult:=false;

end;

FreeAndNil(zip);

end;

{-------------------------------------------------------------------------------

-Dosya Açma UNZIP

-------------------------------------------------------------------------------}

function TfrmMain.UnZipFile(ArchiveName, Path: String): boolean;

var Zip:TZipFile;

begin

Zip:=TZipFile.Create;

try

zip.Open(ArchiveName,zmRead);

zip.ExtractAll(Path);

zip.Close;

result:=true;

except

result:=false;

end;

zip.Free;

end;

用法：

uses zip;

if zipFolder('c:\1\test.zip','c:\2') then

begin

// işlem tamam

end

else

begin

// işlem hatalı

end;

推荐分享