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.

[malo]

Du musst eigentlich nur jedes "FileName" durch den Pfad und Dateinamen der Zip-Datei ersetzen

[alcaeus]

Hallo Fritz,

das duerfte wirklich nicht schwer sein, deshalb gibt es nur ein paar kleine Denkanstoesse:
entferne erstmals alles mit dem OpenDialog. Such dir die Stelle, an welcher der Dateiname gesetzt wird, und bring dort den Dateinamen rein. Dort wo das Verzeichnis angegeben wird, in welches extrahiert wird, gibst du direkt dein Verzeichnis an.
Streng dich doch bitte an, das rauszufinden wenn du obenstehenden Code hast, ist wirklich nicht schwer.

Greetz
alcaeus

[Luckie]

Rat mal, was da OpenDialog1.FileName drinne steht nach ausführen des OpenDialoges, auswählen einer Datei und schließen mit OK.

[Fritz the Cat]

Sorry, aber mir qualmt wirklich schon der Schädel. Ich schau mir das ganze nochmal in Ruhe an.

Stimmt. Das einfachste liegt manchmal so nah. Danke.

[edit=Christian Seehase]Postings zusammengefasst. Es gibt auch einen Edit-Button (oben Rechts) Mfg, Christian Seehase[/edit]
[edit=Christian Seehase]Dummen ( ) Fehler von mir korrigiert, dank an malo. Mfg, Christian Seehase[/edit]