怎样修改已有程序(50分)

  • 主题发起人 主题发起人 greygirl
  • 开始时间 开始时间
G

greygirl

Unregistered / Unconfirmed
GUEST, unregistred user!
请教各位大哥。大姐:
怎样象金山词霸,网络蚂蚁那样,安装了之后,在IE浏览器的工具栏上
添加自己的图标和菜单!谢谢!
 
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对应的是:
按钮的应用程序
按钮显示出来的文字
按钮开始图标
按钮浮动时的图标
 
接受答案了.
 
后退
顶部