DelZip / 7-Zip / ...

[stho]

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...)