Netants And IE(100分)

  • 主题发起人 主题发起人 yufandi
  • 开始时间 开始时间
Y

yufandi

Unregistered / Unconfirmed
GUEST, unregistred user!
如何将程序放一个图标到IE的工具栏像Netants一样?<br>另外注册表中IE的工具栏的背景如何更换?
 
来自:woodstock 时间:00-7-2 13:59:59 ID:275151 &nbsp;<br>procedure TForm1.BitBtn1Click(Sender: TObject);<br>var<br>rg:Tregistry;<br>begin<br>&nbsp; &nbsp;rg:=Tregistry.create;<br>&nbsp; &nbsp;rg.rootkey:=HKEY_LOCAL_MACHINE;<br>&nbsp; &nbsp;rg.openkey('SOFTWARE/MICROSOFT/INTERNET EXPLORER/EXTENSIONS/{0713E8D2-850A-101B-AFC0-4210102A8DA7}',true);<br><br>&nbsp; &nbsp;rg.writestring('BUTTONTEXT',Edit1.text);<br>&nbsp; &nbsp;rg.writestring('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');<br>&nbsp; &nbsp;rg.writestring('DEFAULT VISIBLE','YES');<br>&nbsp; &nbsp;rg.writestring('EXEC',Edit2.text);<br>&nbsp; &nbsp;rg.writestring('ICON',Edit3.text);<br>&nbsp; &nbsp;rg.writestring('HOTICON',Edit4.text);<br><br>&nbsp; &nbsp;rg.closekey;<br>&nbsp; &nbsp;rg.free;<br>end;<br><br>Edit1---4对应的是:<br>按钮的应用程序<br>按钮显示出来的文字<br>按钮开始图标<br>按钮浮动时的图标<br>&nbsp;<br>&nbsp;<br>
 
多人接受答案了。
 
后退
顶部