VCLUnZip := TVCLUnZip.Create(nil); try VCLUnZip.ZipName := 'c:\temp\1.zip'; VCLUnZip.ReadZip; VCLUnZip.DoAll := True; VCLUnZip.DestDir := 'd:\temp\; VCLUnZip.UnZip; finally FreeAndNil(VCLUnZip); end;
VCLZip不好用,建议改用ZipForge,在Delphi盒子上有的下载,使用超简单:
Archiver := TZipForge.Create(nil); try with Archiver do begin FileName := zipFile; // zip文件 OpenArchive; try BaseDir := destPath; // 解压到那个目录 ExtractFiles('*.*'); finally CloseArchive; end; end; finally FreeAndNil(Archiver); end;
网友回复/评论仅代表其个人看法,并不表明本社区同意其观点或证实其描述。
1.不欢迎无意义的回复/评论和类似“顶”、“沙发”之类没有营养的文字如果只是想简单的表个态,请点 有用无用支持反对 等按钮2.发言之前请再仔细看一遍文章,或许是您遗漏、误解了,理性讨论、切莫乱喷3.严禁发布违法、违规的信息,请勿到处招贴广告、发布软文;4.如果您发现自己的回复/评论不见了,请参考以上3条5.不停制造违规、垃圾信息的,账户将被禁止
VCLZip不好用,建议改用ZipForge,在Delphi盒子上有的下载,使用超简单: