function ZipDir(zipMode:Integer;zipControl:TVCLZip;MyZipName,MyZipDir:string):Boolean;

  begin

    {压缩指定目录中的文件和文件夹，指定RootDir，否则连同指定目录本身一同压缩}

    Result:=False;

    try

      with zipControl do

      begin

        case zipMode of

          :RootDir:='';   //指定压缩目录

          :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;