Einzelnen Beitrag anzeigen

-Phantom-

Registriert seit: 26. Nov 2009
Ort: Bockhorst
319 Beiträge
 
Delphi 7 Enterprise
 
#22

AW: Phantom Zip v2.0

  Alt 24. Jul 2010, 18:41
Ich finde die "7z.dll" nirgendwo. Ich hab die 7.-zip.dll gefunden. Aber ich weiß nun nicht wie ich das machen muss. ( muss ich dafür ein neues Thema öffnen ?)
Das ist mein Versuch : ( nicht böse sein wenn das total daneben ist hab noch nie mit Dll's rum hantiert )
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject) stdcall;
external '7-zip.dll';
begin
   with CreateInArchive(CLSID_CFormatZip) do
   begin
     OpenFile('C:\Users\Administrator\Desktop\test.zip');
     ExtractTo('C:\Users\Administrator\Desktop\test');
 end;
end;
Als Fehler kommt das er "CreateInArchive", "Openfile", und "Extractto" nicht kennt
Mathias Jansen
  Mit Zitat antworten Zitat