初次提问,如何制作自动加入IE工具栏上的按纽?如netants等。(50分)

  • 主题发起人 主题发起人 阿铜
  • 开始时间 开始时间

阿铜

Unregistered / Unconfirmed
GUEST, unregistred user!
刚接触delphi,想做个程序加按纽到ie工具栏上,连到指定的网址,象Netants、网易easebay那样。
请问需用到那些技术?最好有代码,越全越好,呵呵!
 
旧贴里的,没测试,IE5以上应该可以。

procedure TForm1.BitBtn1Click(Sender: TObject);
var
rg:Tregistry;
begin
rg:=Tregistry.create;
rg.rootkey:=HKEY_LOCAL_MACHINE;
rg.openkey('SOFTWARE/MICROSOFT/INTERNET EXPLORER/EXTENSIONS/{0713E8D2-850A-101B-AFC0-4210102A8DA7}',true);

rg.writestring('BUTTONTEXT',Edit1.text);
rg.writestring('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
rg.writestring('DEFAULT VISIBLE','YES');
rg.writestring('EXEC',Edit2.text);
rg.writestring('ICON',Edit3.text);
rg.writestring('HOTICON',Edit4.text);

rg.closekey;
rg.free;
end;

Edit1---4对应的是:
按钮的应用程序
按钮显示出来的文字
按钮开始图标
按钮浮动时的图标
 
实际上就是操作注册表.只是IE5以下不能用这个,所以,用处不大..
建议把所要的功能菜单写入IE的右键菜单内...类似于NetAnts的
"download all by netants" <--这个菜单也是加在注册表里面的,
REGEDIT4

[HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/MenuExt/访问大富翁]
@="http://www.gislab.ecnu.edu.cn/delphibbs/"

上面那个URL你可以换成程序的路径...

 
太好了,两位的解答让我茅塞顿开,原来是这样!其他栏目里估计也都是在注册表里修改,
不知道有没有关于IE在注册表里的说明文档。

对了,还有点小小问题,下面的这几串数字是怎样产生的?我该怎样设置和使用?会不会冲突?
{0713E8D2-850A-101B-AFC0-4210102A8DA7}
{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}

 
微软没有解释,你用就可以了!?
 
多人接受答案了。
 
后退
顶部