这个问题其实很简单,象前面的一位老兄说的一样,研究一下注册表即可实现,下面我把它的实现方法告诉你,具体操作自己应该会吧(你说在VC下实现了,怎么会在Delphi中不行呢?)写入以下路径::
HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\ 新建一个主键:{11111111-F40A-11D1-B792-444553540001}该主键的命名规则为:前面的八位为自定义的十六进制数位(从0~9的数字,a~e的字母,该例为:11111111),如果要定义多个按钮,前八位的定义不能相同,后面的字串要原封不动的抄下来。然后新建一系列的字符串值。
"CLSID"= "{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}"直接照搬,不能改动,
"Default Visible"= "Yes":表示在鼠标移到自定义按钮上时,按钮上所显示的图标。
"HotIcon"= "D:\handshak.ico":表示在IE的工具栏中,是否显示自定义按钮。
"Icon"= "D:\skyline.ico":表示在正常状态时,按钮上的图标。
"Exec"= "D:\program.exe":表示自定义按钮被按下时,所执行的应用程序。
"ButtonText"= "hello":表示在鼠标移到自定义按钮上时,浮现的提示文字。
"MenuText"= "&Hello":表示点击"工具"菜单后,菜单中所显示的自定义菜单项
"MenuStatusBar"= "How Are You":表示当鼠标指向自定义菜单项时,在IE中的状态栏中显示的提示文字
就这样,很简单,你试试看,万一有问题,对照Netant(同一子键下)看一下,别忘了给我加分啊!
;------------------------------
REGEDIT4
[HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\{57E91B47-F40A-11D1-B792-444553540001}]
"CLSID"="{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}"
"Default Visible"="Yes"
"HotIcon"="c:\\windows\\girl.ico,0"
"Icon"="c:\\windows\\girl.ico,0"
"Exec"="http://expert.csdn.net"
"ButtonText"="专家门诊"
"MenuText"="程序员大本营[专家门诊](&E)"
"MenuStatusBar"="中国软件专家门诊--程序员大本营"
[HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\{57E91B47-F40A-11D1-B792-444553540002}]
"CLSID"="{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}"
"Default Visible"="Yes"
"HotIcon"="c:\\windows\\girl.ico,0"
"Icon"="c:\\windows\\girl.ico,0"
"Exec"="http://club.163.com"
"ButtonText"="网易社区"
"MenuText"="网易虚拟社区(&V)"
"MenuStatusBar"="网易虚拟社区[广州社区]"
;--------------------------------------