Moin Lillebrohr,
also ich hab' das eben mal mit TAbZipper und TAbUnZipper ausprobiert gehabt.
Je eine Kompo davon auf's Formular, beim Unzipper dann noch in den ExtractOptions eoRestorePath auf true, alles übrige bleibt auf Default.
TempDirectory, FileName und BaseDirectory kann man auch im
OI eintragen, ich hab's der Übersichtlichkeit halber mal hier eingebaut.
Delphi-Quellcode:
// Zippen
AbZipper1.TempDirectory := 'c:\temp';
AbZipper1.FileName := 'c:\temp\myzip.zip';
AbZipper1.BaseDirectory := 'E:\Ziptest';
AbZipper1.AddFiles('gif\*.*',0);
AbZipper1.Save;
// Entzippen
AbUnZipper1.TempDirectory := 'c:\temp';
AbUnZipper1.FileName := 'c:\temp\myzip.zip';
AbUnZipper1.BaseDirectory := 'E:\Unziptest';
AbUnZipper1.ExtractFiles('*.*')
Direkt nacheinander ausgeführt, und unter E:\Unziptest stand nur das Gif Verzeichnis mit den enthaltenen Dateien.