Compactar directorio en delphi
 

Estimados no puedo lograr compactar un directorio con la función tzipfile de Delphi envio un ejemplo:

Código Delphi [-]
var
SearchRec: TSearchRec;
zip: tzipfile;
begin

Zip := TZipFile.Create;
Zip.Open ('C:\123.zip', zmWrite);
if FindFirst('c:\123\*.*', faAnyFile, SearchRec) = 0 then
repeat
   Zip.Add ('C:\123\'+ SearchRec.name);
until (FindNext(SearchRec) <> 0);
FindClose(SearchRec);
 end;

Al utilizar esto me dice que no encuentra el directorio yo quiero compactar todo lo que hay en c:\123N DESDE YA MUCHAS GRACIAS!!!!

Ya es un poco antigua, pero puedes echarle un vistazo a esta entrada en el blog.
Se explican las operaciones básicas y tienes el código de un ejemplo, al que puedes echarle un vistazo.

Otra cosa, sustituye la línea del zip.add, por esta otra:

Código Delphi [-]
      if (SearchRec.name <> '.') and (SearchRec.name <> '..') then begin
        Zip.Add ('R:\123\'+ SearchRec.name);
      end;

Es posible que te esté intentando aññadir los ficcheros "." y "..", y eso te provoque errores.