Comprimir un archivo( que quede .zip), desde Builder sin mostrar Winzip

[meosre]

Yo utilizo estos componentes y me funcionan perfectamente, yo genero un zip al cual le cambio el tipo de extension para que se genere un archivo que solo abre mi aplicacion, resulta que ahora necesito ademas de comprimir unos archivos, comprimir una carpeta que necesito y que por dentro contiene mas carpetas cada una con informacion interna, me pueden ayudar para saber como hago esto, ya que yo lo que hago es agregar archivos con la funcion que trae el componente y no se como comprimir todo un directorio.

Gracias

[dec]

Hola,

Lo siguiente es Delphi, pero, creo que se entenderá bien:

Código Delphi [-]
 uses
   AbArcTyp, AbZipKit;
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
   AbZipKit: TAbZipKit;
 begin
   AbZipKit := TAbZipKit.Create(Self);
   try
     AbZipKit.FileName := 'C:\Archivo.zip';
     AbZipKit.StoreOptions := [soRecurse];
     AbZipKit.AddFiles('C:\Archivos de programa\Inno Setup 5\*.*', faAnyFile);
     AbZipKit.CloseArchive;
     AbZipKit.Save;
   finally
     AbZipKit.Free;
   end;
 end;