sevenzip Api

[-Phantom-]

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!