Zip-Datei ohne OpenDialog entpaken?

[Fritz the Cat]

Hallo,

mit der AbUnZipper-Kompo von Abbrevia ist es ja ganz bequem möglich eine Datei mit einem OpenDialog zu entpacken:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then begin
    with AbUnzipper1 do begin
      FileName := OpenDialog1.FileName;
      BaseDirectory := ExtractFilePath( FileName );
      ExtractFiles( '*.*' );
    end;
  end;
end;

Mein Ziel ist es aber Die Quelldatei schon festzulegen. Genauso wie das Zielverzeichnis.

Steige einfach nicht hinter.