Müsste eigentlich schon das richtige sein.
Nun ist die frage wie mache ich das?!
Denn " procedure ExtractItem(const item: Cardinal; Stream: TStream; test: longbool); stdcall;" erfordert ja einen Stream.
Mein Ansatz
Delphi-Quellcode:
var
i : Integer;
begin
with CreateInArchive(CLSID_CFormatZip) do
begin
openfile(openpfad);
for i := 0 to dateilist.Items.Count - 1 do begin
if dateilist.Items[i].Selected then begin
extractitem(i,*was hier hin*,true);
end;
end;