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