Compactar directorio en delphi

[gdlrinfo]

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

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!!!!

[Neftali [Germán.Estévez]]

Ya es un poco antigua, pero puedes echarle un vistazo a esta entrada en el blog (http://neftali.clubdelphi.com/testeando-xe2-soporte-nativo-para-ficheros-zip/).
Se explican las operaciones básicas y tienes el código de un ejemplo, al que puedes echarle un vistazo.

[Neftali [Germán.Estévez]]

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


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.