uses
. . . . AbZipper, AbUnzper;
-----------
procedure TForm1.Button1Click(Sender: Tobject); // COMPRIMIR
var
Zip : TAbZipper;
begin
Zip := TabZipper.Create(Application);
//zip.BaseDirectory := 'C:\Agenda TUX\'; // path del archivo a zipear, si no hay zipea todo el arbol
zip.FileName:= 'prueba.zip'; // archivo salida, si usamos “BaseDirectory” usar “'C:\Agenda TUX\'prueba.zip”
Zip.AddFiles('ericktux.txt',0); // el archivo para zipear y “0” para que no toque otros archivos
// Zip.Password := '123'; // agregarle passwords
zip.Save;
zip.Free;
End;
procedure TForm1.Button2Click(Sender: Tobject); // DESCOMPRIMIR
var
uZip : TAbUnZipper;
begin
uZip := TabUnZipper.Create(Application);
//uzip.BaseDirectory := 'C:\Agenda TUX\';
uZip.FileName:= 'prueba.Zip'; // archivo salida, si usamos “BaseDirectory” usar “'C:\Agenda TUX\'prueba.zip”
// uZip.Password := '123'; // descomprimir con passwords
uZip.ExtractFiles('ericktux.txt'); // archivo dentro del ZIP a extraer
//uZip.CloseArchive;
uZip.Free;
End;