[delphizip] Simple code

From: "eee" <bartailean@xxxxxxxxxxx>
To: <delphizip@xxxxxxxxxxxxx>
Date: Tue, 4 Jun 2002 13:12:16 +0300

I created a simple application to learn using Zip Master. I made this code for 
archiveing:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if savedialog1.Execute and opendialog1.execute then
     begin
        zipmaster1.ZipFileName:=savedialog1.FileName;
        zipmaster1.FSpecArgs.Add(opendialog1.FileName);
        zipmaster1.Add;
    end;
end;

And it works, but i couldn't made the code for unarchiveing.

[delphizip] Simple code

Other related posts: