非高手别进来，300分求救，一次不够，可以分三次给。给第一个圆满解决问题的人。

Question

我在做一个程序，如何把我的程序的图标加到IE的工具栏上，就像金山词霸的图标加到ie的工具栏上，一点击就运行，方便多了。高手指点，最好给个例子程序。我现在最多每次只能给100分，第一个结局的人，分三次给你300分。

Answer 1

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions]
看一下就知道了把.如果你装了flashget.

Answer 2

VB的
http://www.applevb.com/art/ie_menu.txt

Answer 3

我装了flashget，但还是不是很明白，你能说明白一点吗？

Answer 4

1、如何在IE工具栏中加上一个图标，点击以后就弹出我的程序？
procedure inIE;
var
  tmpPath:string;
  reg:TRegistry;//声明一个TRegistry类变量
begin
    tmpPath:=ExtractFilePath(ParamStr(0));
    reg:=TRegistry.Create;//创建实例
    reg.RootKey:=HKEY_LOCAL_MACHINE;//指定需要操作的注册表的主键
    reg.OpenKey('\SOFTWARE\Microsoft\Internet Explorer\Extensions',true); //打开进行以下操作
    reg.CreateKey('{e234F257-3587-F134-c642-0101010ac222}');
    reg.openKey('{e234F257-3587-F134-c642-0101010ac222}',true);
    reg.WriteString('ButtonText','applicationname');
    reg.WriteString('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
    reg.WriteString('Default Visible','Yes');
    reg.WriteString('Exec',tmpPath+'EIM.exe');
    reg.WriteString('HotIcon',tmpPath+'SKINS\Default\main.ico');
    reg.WriteString('Icon',tmpPath+'SKINS\Default\main.ico');    reg.WriteString('MenuStatusBar','EIM');//添加到IE的工具菜单里。
    reg.WriteString('MenuText','&EIM');
   
reg.closeKey;
end;

Answer 5

这里有详细的
http://www.csdn.net/Develop/Read_Article.asp?Id=7099

Answer 6

给你发个例子吧(一个过程):
procedure inIE;
var
  tmpPath:string;
  reg:TRegistry;//声明一个TRegistry类变量
begin
    tmpPath:=ExtractFilePath(ParamStr(0));
    reg:=TRegistry.Create;              //创建实例
    reg.RootKey:=HKEY_LOCAL_MACHINE;    //指定需要操作的注册表的主键
    reg.OpenKey('\SOFTWARE\Microsoft\Internet Explorer\Extensions',true); //打开进行以下操作
    reg.CreateKey('{e234F257-3587-F134-c642-0101010ac222}');
    reg.openKey('{e234F257-3587-F134-c642-0101010ac222}',true);
    reg.WriteString('ButtonText','kaersoft');
    reg.WriteString('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
    reg.WriteString('Default Visible','Yes');
    reg.WriteString('Exec',tmpPath+'Project1.exe');
    reg.WriteString('HotIcon',tmpPath+'face.ico');
    reg.WriteString('Icon',tmpPath+'face2.ico');       //注册一个笑脸图标    reg.WriteString('MenuStatusBar','kaersoft');     //添加到IE的工具菜单里。
    reg.WriteString('MenuText','&kaersoft');
    reg.closeKey;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  inIE;
end;