So, habe mich mal etwas damit beschäftigt und für alle nachfolgenden die Probleme haben:
Ich habe TSevenZip / Sevenzip genutzt:
Delphi-Quellcode:
sevenzip1.Files.clear;
sevenzip1.ExtrBaseDir := edit5.text;
sevenzip1.ExtractOptions := sevenzip1.ExtractOptions + [ExtractOverwrite];
SevenZip1.SZFileName := edit5.text + '
\' + Hauptfile;
try
SevenZip1.Extract;
memo2.lines.add(timeToStr(now) + '
: Entpacken komplett!');
except
on e :
Exception do
begin
memo2.lines.add(timeToStr(now) + '
: Entpacken fehlerhaft!');
memo2.lines.add(timeToStr(now) + '
: ERROR: ' + e.
message);
ShellExecute(0, '
open', PChar(Edit5.text),
nil,
nil, SW_ShowNormal);
exit;
end;
end;
----------
Anmerkung:
Edit5.Text = Zielverzeichniss (Beispiel: C:\test)
Hauptfile = Archiv.7z.001 (Sevenzip nennt die Archivdateien immer so... keine Ahnung wieso...)