最近从typhon32中找到的两个文件压缩源代码，很好用

cuibq

原始代码位于：
C:\codetyphon\CodeOcean\Abbrevia\samples\ExZipper
C:\codetyphon\CodeOcean\Abbrevia\samples\ExFilter





  部分代码：

  AbZipper1.Filename := sZipPathName;
  //根据文件列表压缩
  for i := 0 to fileLists.Count - 1 do
  begin
    Application.ProcessMessages;
    if Aborting or Application.Terminated then abort;

    pbar1.Position := i;

    AbZipper1.AddFiles(fileLists.Strings, 0);

  end;

  AbZipper1.ZipfileComment := utf8ToAnsi('本压缩文件由暗箭-数据安全客户端自动生成。') + dateTimeToStr(now());
  AbZipper1.Password := spwd;
  AbZipper1.CompressionMethodToUse := smBestMethod;
  AbZipper1.DeflationOption := doFast;
  AbZipper1.Save;
  AbZipper1.CloseArchive;
  Cursor := crDefault;
  memoText.Append(dateTimeToStr(now())+' 压缩完成');
  memoText.Append('压缩包中文件与文件夹数量:' + intToStr(fileLists.Count));