Problem mit Button in IE-Toolbar

[Remote1]

ich hab in meinen IE einen button eingefügt und mir dazu eine proz geschrieben:

Delphi-Quellcode:

procedure IEPlugin(NewGUID:TGUID);
var reg:tregistry;
begin
 try
  reg:=tregistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('Software\Microsoft\Internet Explorer\Extensions\'+guidtostring(NewGUID),true);
  reg.WriteString('ButtonText','WebSearch');
  reg.WriteString('MenuText','WebSearch');
  reg.WriteString('MenuStatusBar','Öffnet WebSearch mit aktuellem Inhalt');
  reg.WriteString('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
  reg.WriteString('Default Visible','Yes');
  reg.WriteString('Exec',application.ExeName);
  reg.WriteString('HotIcon',extractfilepath(application.ExeName)+'websearch.ico');
  reg.WriteString('Icon',extractfilepath(application.ExeName)+'websearch.ico');
 finally
  reg.CloseKey;
  reg.Free;
 end;
end;

das fkt ja auch alles (mein prog wird gestartet)

ich will aber, dass die aktuelle url mit übergeben wird und ich die dann mit paramstr() auslesen kann

habs auch schon so probiert:
reg.WriteString('Exec',application.ExeName+' -url "%1"'); da kommt nur immer die fehlermeldung, dass die datei nicht gefunden werden darf

[Remote1]

hat denn da keiner mal ne zündende idee

muss ich da über com oder skript gehen

http://msdn.microsoft.com/library/de...rials/menu.asp

[shmia]

Dein COM-Object muss das Interface IObjectWithSite implementieren.
Der IE ruft dann die Methode IObjectWithSite.SetSite() und übergibt darin einen Interfacepointer.
Diesen Interfacepointer musst du dann in das Interface IShellBrowser tauschen.
Mit diesem Interface hast du dann Zugriff auf viele Eigenschaften des aktiven Browsers (unter
Anderem auch die URL).

[Remote1]

ja kannst du mir da mal weiterhelfen, da ich damit noch net gearbeitet hab.
hast du da mal schnell ein bsp. oder so was.
das ich da über com object gehen muss hat ich mir ja schon gedacht, aber wie???

du siehst ja oben, was ich schon hab und die paar registry einträge für com object (wie bei msdn erkläret)mach ich auch noch, aber wie implementiere ich dann IObjectWithSite und was mache ich mit IShellBrowser

[Remote1]

kann mir da keiner weiterhelfen