请各位有识之士进来看看，有关IE的插件开发,谢谢了！！(100分)

不知道以前各位有没有去过网易下过一个IE的插件，那个插件下载安装后会有IE的工具条上现
网易的各个栏目，请问各位，那里可以找到这种插件的开发资料或者例子，如有请留下URL或者
可以EMAIL给我，我的EMAIL是pjntt#21cn.com，先谢谢各位了!!

http://www.euromind.com/iedelphi/
那上面有.

const
IE_EXT='/SoftWare/Microsoft/Internet Explorer/Extensions'; //把需要加到IE的程序加到这个目录下
IE_BAR='/SoftWare/Microsoft/Internet Explorer/ToolBar';
IE_GUID ='{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}'; //必须的键值
IE_BAR_GUID='{1E796980-9CC5-11D1-A83F-00C04FC99D61}';
procedure IEBar(ID,IEHint,exe,HotIcon,ColdIcon,MenuText,MenuStatusBar: string);
Procedure DelIeBar(ID:String);
////////////////添加、删除IE工具栏图标过程///////////////
procedure IEBar(ID,IEHint,exe,HotIcon,ColdIcon,MenuText,MenuStatusBar: string);
var
i,p: integer;
buf: array[0..511] of Longword;
begin
try
with TRegistry.Create do begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey(IE_EXT,True);
CreateKey(ID);
OpenKey(IE_EXT+'/'+ID,True);
WriteString('ButtonText',IEHint);
WriteString('CLSID',IE_GUID);
WriteString('HotIcon',HotIcon);
WriteString('Icon',ColdIcon);
WriteString('Exec',Exe);
WriteString('Default visible','Yes');
WriteString('MenuText',MenuText); //IE工具菜单出现的文字
WriteString('MenuStatusBar',MenuStatusBar);

RootKey := HKEY_CURRENT_USER;
OpenKey(IE_EXT+'/CmdMapping',True);
i:=ReadInteger('NextId'); //最新ID
WriteInteger('NextId',i+1); //更新ID
WriteInteger(ID,i);
OpenKey(IE_BAR,True);
//for p:=0 to 511 do buf[p]:=0;
p:=ReadBinaryData(IE_BAR_GUID,buf,4096);
p:=p div sizeof(Longword);
buf[p]:=$420;
buf[p+1]:=$1e796980;
buf[p+2]:=$11d19cc5;
buf[p+3]:=$c0003fa8;
buf[p+4]:=$619dc94f;
buf[p+5]:=i;
buf[p+6]:=4;
WriteBinaryData(IE_BAR_GUID,buf,(p+7)*sizeof(Longword));
CloseKey;
Free;
end;
finally
end;
end;

//////////////删除IE工具栏图标的函数过程////////////////
Procedure DelIeBar(ID:String);
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if reg.OpenKey('/Software/Microsoft/Internet Explorer/Extensions/',False) then
Reg.DeleteKey(Id);
reg.CloseKey ;
reg.Free;
except
Reg.CloseKey ;
Reg.Free ;
end;
end;
//////////////////////过程结束////////////////////////////
/////添加
procedure TFrmMain.button1Click(Sender: TObject);
var
S,P1,P2,P:String;
begin
S:=ExtractFilePath(application.exename);
P:=S+'notpad.exe';//你的exe文件
S:=S+'data/';
P1:=S+'***.ico';//你的图表文件
P2:=P1;
IEBar('{1dd88cc0-8b01-11d4-8c75-5254ab888ead}','我的测试',
P,P1,P2,'我的测试','我的测试');
end;

http://www.euromind.com/iedelphi/ie5tools/bandobjects.htm

to 轩辕散光
先谢谢你，您的方法只是在工具栏上插入一个图标，，这并不是我想要的，，

网易的插件是在IE窗口里多加了一个工具栏，在工具栏里有它自己的各个栏目的名字，，我
需要的是在IE窗口里多加一个工具栏的资料，，

来者有分，我找到DEMO及代码了，谢谢三位！！！

恭喜，能把代码mail一份我么
cbychen@263.net

可以把关于IE PLUGIN的代码发给我一份吗？
boyface@263.net
谢谢！

老兄,给我一份吧,我也急用darzui@263.net,我在csdn发了帖子
http://www.csdn.net/Expert/TopicView1.asp?id=1004220