Ich hab es nun so versucht :
Delphi-Quellcode:
var
i : Integer;
datei : TStream;
begin
with CreateInArchive(CLSID_CFormatZip) do
begin
datei := TFileStream.Create(openpfad, fmOpenRead);
for i := 0 to dateilist.Items.Count - 1 do begin
if dateilist.Items[i].Selected then begin
extractitem(i,datei,true);
end;
end;
end;
end;
Dann kommt ein Laufzeit ERROR :
Acces violation at address 0064CA88 in module test.exe'. Read of address 00000000