是否可以在IE浏览器上添加新的功能按钮？

[wenfeng]

[jiangtao]

使用COM编程可以实现，
可以用VB,VC,Delphi,不过不能用ASP
MSDN上有说明：
http://msdn.microsoft.com/workshop/browser/ext/overview/toolbar_style.asp

这是Delphi的代码：
function AddToolbarBtn(Visible: Boolean; ConnType: TConnType; BtnText, HotIcon, Icon, GuidOrPath: string): string;
var
G: TGUID;
Reg: TRegistry;
UID: string;
begin
CoCreateGuid(G);
UID := GuidToString(G);
Reg := TRegistry.Create;
with Reg do try
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('\Software\Microsoft\Internet Explorer\Extensions\' + UID, True);
if Visible then
WriteString('Default Visible', 'Yes') else
WriteString('Default Visible', 'No');
WriteString('ButtonText', BtnText);
WriteString('HotIcon', HotIcon);
WriteString('Icon', Icon);
case ConnType of
COM_OBJECT: begin
WriteString('CLSID', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');
WriteString('ClsidExtension', GuidOrPath);
end;
EXPLORER_BAR:
begin
WriteString('CLSID', '{E0DD6CAB-2D10-11D2-8F1A-0000F87ABD16}');
WriteString('BandCLSID', GuidOrPath);
end;
SCRIPT:
begin
writeString('CLSID', '{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
WriteString('Script', GuidOrPath);
end;
EXECUTABLE:
begin
WriteString('CLSID', '{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
WriteString('Exec', GuidOrPath);
end;
end;
CloseKey;
OpenKey('\Software\IE5Tools\ToolBar Buttons\', True);
WriteString(BtnText, UID);
CloseKey;
finally
Free;
end;
Result := UID;
end;

[linyu]

不错，找了很久。
还有一个问题，就是编一个程序加一个类似于IE历史、搜索的按钮，能够实现在页面左边出现一个窗体的功能。

[jiangtao]

这里有全部技术资料：
http://msdn.microsoft.com/workshop/browser/ext/overview/overview.asp

[wenfeng]

谢谢各位的帮助！