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 twebbrowser 设置焦点

Delphi创建桌面快捷方式及锁定任务栏等功能

Delphi wininet带进度下载http文件

Delphi中提取网址链接分路径

Delphi webbrowser1 execwb 复制 新建 打开

Delphi directx截图 截本窗口的图

Delphi [android]获取屏幕的物理分辨率

Delphi sql语句查询最新的各个台位的最后一个检测值

Delphi 内存补丁

Delphi #9、 #10、 #13 表示的意思

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

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