在IE工具栏上加入自定义工具栏按钮的小程序!比如加入JetCar!谁要?(0分)

  • 主题发起人 yukaikai
  • 开始时间
谢谢,我也想要,源代码也给我吧
julianhu@cmmail.com
 
能不能给我发一份(源代码也要)。
 
能不能给我发一份(源代码也要)。
忘了写地址,不好意思。
magic8@163.net
 
可以给我一份吗?
plwei@163.net
 
<h1>请注意</h1>
请到:
http://selfsoft.home.chinaren.net
<h1>下载</h1>
 

<font size=7><b><b>&amp;yuml;</b></b></font>
<b>
 
各位大虾知道怎样增加一个TOOBAR呢,象网易那样的,或者想
MS的MEDIAPLAY那样集成到IE里面,如何实现呢
 
拜托,给我寄一份源代码吧!
 
我也要,不知能否来得及.
zhengyong@webpc.edu.cn
 
yukaikai,我用了怎么什么都没有哇!我用的的IE4,请指教。
 
我也是!
my E_mail:xubaoqiang@china.com
 
我也想要
zhangc@moe.edu.cn
 
能给<font color=red><a href=mailto:smelless@etang.com>我</a></font>一份有源程序的吗?
 
真好,我也想要.thanks
zgboc@163.net
 
能给我一份吗?
xdongs@sina.com
 
我要 ~~~~~~~~~~~~~~~~~~~~~~~`
jonix@suntec.net
 
我要-----要
 
//faint 大家都要要,干脆yukaikai把程序贴出来算了。
其实也不算复杂的。
//hehe
 
这个程序很简单。
procedure TForm1.Button1Click(Sender: TObject);
reg:Tregistry;
begin
reg:=Tregistry.create;
reg.rootkey:=HKEY_LOCAL_MACHINE;
reg.openkey('SOFTWARE/MICROSOFT/INTERNET EXPLORER/EXTENSIONS/{0713E8D2-850A-101B-AFC0-4210102A8DA7}',true);
reg.writestring('BUTTONTEXT',Ewenzi.text);
reg.writestring('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
reg.writestring('DEFAULT VISIBLE','YES');
reg.writestring('EXEC',Echxu.text);
reg.writestring('ICON',Etubiao1.text);
reg.writestring('HOTICON',Etubiao2.text);
reg.closekey;
reg.free;
end;

 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
865
DelphiTeacher的专栏
D
顶部