Ich habe hier gerade mal die Komponente von den Jedis TJvZLibMultiple.
Diese bietet auch dein DeCompressStream an.
Delphi-Quellcode:
procedure DecompressStream(Stream: TStream;
Directory: string; Overwrite: Boolean; const RelativePaths: Boolean);
Wie kann ich aber damit auf die Datei zugreifen im Archive. Es wird nen Stream erwartet
und in ein Verzeichnis entpackt.