Delphi VclZip压缩文件夹

本文整理自网络，侵删。

 
压缩指定路径MyZipDir下的文件夹b及b目录下的所有文件和文件b.txt

function ZipDir(zipMode:Integer;zipControl:TVCLZip;MyZipName,MyZipDir:string):Boolean;
  begin
    {压缩指定目录中的文件和文件夹，指定RootDir，否则连同指定目录本身一同压缩}
    Result:=False;
    try
      with zipControl do
      begin
        case zipMode of
          0:RootDir:='';   //指定压缩目录
          1:RootDir:=MyZipDir;
        end;
        OverwriteMode:=Always;//覆盖
        AddDirEntriesOnRecurse:=True;
        RelativePaths:=True;//相对路径
        Recurse:=True;//是否遍历
        RecreateDirs:=True;//创建目录
        StorePaths:=True;//保存路径，如RootDir不指定则保持完成路径（去除盘符外的，需要保持盘符路径设置StoreVolumes属性）
        ZipName:=MyZipName;
        FilesList.Add(MyZipDir+'\b\*.*');
        FilesList.Add(MyZipDir+'\b.txt');
        Zip;
        Result:=True;
      end;
    except
 
    end;
  end;
 

相关阅读 >>

Delphi 判断系统服务是否运行

Delphi Delphi中点击dbgrid某一行获得其详细数据方法

Delphi webbrowser 操作记要

Delphi unicode转中文编码

Delphi idhttp登录网站教程代码

Delphi 如何通过代码控制打开键盘数字锁定numlock

Delphi取得桌面工作区域的大小

Delphi里如何限制form的大小

Delphi 10.4 新变化：定制拖管记录（结构）类型

Delphi实现票据精确打印

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi VclZip压缩文件夹