Ich hab es nun so gemacht
Delphi-Quellcode:
var
i : Integer;
datei : TfileStream;
dateiname : String;
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
dateiname := dateilist.Items[i].Caption;
datei := TFileStream.Create('C:\Users\Administrator\Desktop\Test\'+dateiname, fmOpenread );
try
extractitem(i, datei ,true);
finally
datei.Free;
end;
end;
end;
end;
end;
Und geht immer noch nicht
"System konnte den angegebenen Pfad nicht finden"
@Sir RuFo
Du hast "fmOpenCreate" geschrieben , dass geht bei mir nicht.
// Ich hab es einfach "fmcreate" und schon klappt es nicht ganz, denn die Dateien die erstellt werden ist leer!