title: Compress all files but skip one
body: <p>I am zipping directory which has sub directories and there are few files which I don't need (in those sub dirs), can you modify the following script so it would skip certain files I want?</p>
  
  <p>Can pay up to $20 to PayPal for your hard work :-)</p>
  
  <pre><code>procedure DoProgress(Sender: TObject; Position, Total: Integer);
  procedure DoCompressFile(Sender: TObject; const Filename: string);
  </code></pre>
  
  <p>....</p>
  
  <pre><code>procedure TJvZLibMultipleMainForm.DoCompressFile(Sender:TObject;const Filename:string);
  begin
    lblFilename.Caption := Filename;
    Update;
  end;
  
      procedure TJvZLibMultipleMainForm.btnCompressClick(Sender: TObject);
  var
    z : TJvZlibMultiple;
  begin
    ForceDirectories(ExtractFilePath(edFilename.Text));
    z := TJvZlibMultiple.Create(nil);
    Screen.Cursor := crHourGlass;
    try
      lblFilename.Caption := '';
      pbProgress.Position := 0;
      z.OnProgress := DoProgress;
      z.OnCompressingFile := DoCompressFile;
      z.CompressDirectory(edSrcFolder.Text,true,edFilename.Text);
    finally
      z.Free;
      Screen.Cursor := crDefault;
    end;
    pbProgress.Position := 0;
    lblFilename.Caption := 'Ready';
  end;
  
  
  procedure TJvZLibMultipleMainForm.DoProgress(Sender: TObject; Position, Total: Integer);
  begin
    pbProgress.Max := Total;
    pbProgress.Position := Position;
    Update;
  end;
  </code></pre>