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