求delphi 解压文件方法【请注意,不是调用winrar来解压】

发布网友发布时间：2022-07-10 11:37

共2个回答

热心网友时间：2022-07-13 00:56

VCLZip是可以的解压的时候没有创建子文件夹所以你最好自己创建下就OK了
DirPath
for i := 0 to Count-1 do
begin
if not DirectoryExists(DestDir+ExtractFileDir(Filename[i])) then
ForceDirectories(DestDir+ExtractFileDir(Filename[i]));
end;

热心网友时间：2022-07-13 00:56

如果使用delphi xe2的话，可以有压缩的。。。具体内容查查看万一老师的博客（博客园）上有例子的

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com