Hi agm65,
falls du dein Prob noch nicht gelöst hast ein Beispiel:
Delphi-Quellcode:
//Das vorhandene Zip Verzeichnis
Kazip1.FileName := 'C:\zippi.zip';
Kazip1.active := true;
//Der Pfad wohin entpackt werden soll
Kazip1.ExtractAll('C:\');
Kazip1.Active := false;
Kazip1.Close;
Button1.Caption := 'Fertig';
In zippi.zip ist jetzt nur eine txt datei gepackt. Die entpacke ich direkt nach C:\
Was du beachten musst im Object Manager musst du bei den Eigenschaften die Overwrite Action einstellen ich hab es
jetzt auf :
oaOverwrite stehen.
Jetzt sollte es eigentlich funtzen. Falls du ein gezipptes Verzeichnis hast mit mehreren Dateien, dann musste mal sehen
bei Kazip1.ExtractAll('C:\beispielVerzeichnis'); meckert er dann das es das Verzeichnis noch nicht gibt.
Da musst du selber mal rumbasteln ob man das noch irgendwo einstellen kann das er das dann erzeugt, oder
baust dir ne funktion.
Edit: Hab nix dazu gefunden zum einstellen, die einfachste Lösung dafür ist vorher ein Verzeichnis selber zu erzeugen:
Delphi-Quellcode:
pfad := 'C:\entpackt';
ForceDirectories(pfad);
Kazip1.ExtractAll(pfad);
greetz Lun