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