介绍
向IE中添加的自定义菜单，可以被用来执行可执行文件，脚本语言和COM对象的方法，对于前两种执行方式，相对比较简单，只需要对注册表进行编程就
可以了，但是能够执行的功能非常有限，而使用COM组件扩展IE菜单则相对复杂，但是能够执行的功能也相对是最强大的，所以下面我就主要介绍基于COM的
菜单扩展方式，还要注意的一点是只有IE5及以后的版本才支持菜单的扩展。
创建COM组件
对于一个IE菜单项COM组件来说，它最少需要实现IOleCommandTargetCOM接口,如果COM组件还想要对当前IE中显示的页面进
行操作的话，就还需要实现IObjectWithSite接口，对于IObjectWithSite接口，我将在后面的工具条按钮扩展中讨论它的实现。
首先在Delphi中用New | Other命令调出New Items对话框，然后在ActiveX页面中选择创建一个新的ActiveX
Library,将项目保存为IEMenu.dpr，然后再次调用New | Other |
ActiveX命令，新建一个名为TIEHelloWorld的Com
Object对象，然后添加IOleCommandTarget接口的方法实现，完成的类的定义如下：
type
TIEHelloWorld = class(TComObject, IOleCommandTarget)
protected
//IOleCommandTarget方法接口
function QueryStatus(CmdGroup: PGUID; cCmds: Cardinal;
prgCmds: POleCmd; CmdText: POleCmdText): HResult; stdcall;
function Exec(CmdGroup: PGUID; nCmdID, nCmdexecopt: DWORD;
const vaIn: OleVariant; var vaOut: OleVariant): HResult; stdcall;
end;
IOleCommandTarget包含QueryStatus和Exec两
个方法，其中文档上说QueryStatus方法会被IE调用来获得当前菜单的状态，我们需要返回OLECMDF_ENABLED或者其它值来表示是否允
许点击，但是在实际当中，我发现IE从来没有调用过我的菜单扩展的QueryStatus方法，不过不管怎么说，还是按正常的来实现。
function TIEHelloWorld.QueryStatus(CmdGroup: PGUID; cCmds: Cardinal;
prgCmds: POleCmd; CmdText: POleCmdText): HResult;
begin
//允许点击菜单
prgCmds^.cmdf:=OLECMDF_ENABLED;
Result := S_OK;
end;
当用户点击菜单后，IE会调用IOleCommandTarget接口的Exec方法来执行用户自定义的操作。
function TIEHelloWorld.Exec(CmdGroup: PGUID; nCmdID, nCmdexecopt: DWORD;
const vaIn: OleVariant; var vaOut: OleVariant): HResult;
begin
Result := S_OK;
//nCmdI为0时，表示菜单和工具条按钮被点击了
try
ShowMessage('Hello IE');
except
Result:=E_FAIL;
end;
//注意下面的话语句会导致AV，不知道为什么？
//vaOut := Null;
end;
Exec方法带有很多参数，其中IE在调用菜单扩展和工具条按钮扩展组件的的Exec方法时，会设定nCmdI为0，其它参数对于我们来说，都不需
要关心，只要在成功执行代码后，返回S_OK，在失败时返回E_Fail就可以了。实现了IOleCommandTarget接口之后，一个最简单的IE
菜单扩展就完成了。
注册组件
要想让IE在启动后能够发现菜单扩展COM组件，并加载菜单进行显示，需要在注册表中填写一些配置信息。
1、 要在HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\项目下新建一个关键字，名为菜单扩展的Guid的字符串形式。
2、 然后在新建的HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\<菜单扩展Guid>关键字下再创建一个名为ClsidExtension的项目，值也为扩展的Guid。
3、 然后在HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\<菜单扩展Guid>关键字下添加名为MenuText的字符串字段，写入IE用来显示菜单扩展的菜单项标题文本。
4、 我们还可以创建一个MenuStatusBar，IE会在鼠标停留在我们的扩展对应的菜单项时，在IE的状态条上显示MenuStatusBar的文本。这个注册表项不是必须项目，可以省略。
5、 通常
情况下，IE会在工具菜单下显示我们的扩展菜单，但是我们也可以创建一个MenuCustomize字段，设定其值为help。这时IE会将我们的菜单放
到帮助主菜单下面。如果我们的菜单扩展是用来向IE中添加上下文帮助的，可以设定这个选项。这个注册表项同样也是可以忽略的。
注意：如果将注册表位置由HKEY_LOCAL_MACHINE改成HKEY_CURRENT_USER，则菜单扩展会对所有该机器上用户生效。
为了实现添加必要的注册表信息，编写AddMenuItem方法来实现注册功能：
//添加IE菜单
procedure AddMenuItem(MenuText, StatusBarText, Guid:
string; HelpMenu: Boolean);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('\Software\Microsoft\Internet Explorer\Extensions\' + Guid, True);
if HelpMenu then
WriteString('MenuCostumize', 'help');
WriteString('CLSID', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');
WriteString('MenuText', MenuText);
WriteString('MenuStatusBar', StatusBarText);
WriteString('ClsidExtension', Guid);
CloseKey;
CloseKey;
Free;
end;
end;
同时我们还要注销菜单扩展的功能，方法RemoveMenuItem被用来删除注册表项，删除注册表项是Guid来进行的，因为Guid是可以保证唯一性。
//删除IE菜单
procedure RemoveMenuItem(Guid: string);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
DeleteKey('\Software\Microsoft\Internet Explorer\Extensions\' + Guid);
free;
end;
end;
最后，我们定义TIEHelloMenuFactory的TComObjectFactory派生类来调用上面的方法实现COM的组件的注册和注销：
type
TIEHelloMenuFactory = class(TComObjectFactory)
public
procedure UpdateRegistry(Register: Boolean); override;
end;
…
{ TIEHelloMenuFactory }
procedure TIEHelloMenuFactory.UpdateRegistry(Register: Boolean);
begin
inherited;
if Register then
//添加到Tools菜单下
AddMenuItem('HelloIE', 'Hello IE MenuItem', GuidToString(ClassID), False)
else
//Todo: 通过Guid进行删除
RemoveMenuItem(GuidToString(ClassID));
end;
initialization
TIEHelloMenuFactory.Create(ComServer, TIEHelloWorld, Class_IEHelloWorld,
'IEHelloWorld', '', ciMultiInstance, tmApartment);
end.
完成程序后，我们可以在Delphi IDE中使用菜单 Run | Register ActiveX Server和UnRegister ActiveX Server来注册创建好的菜单扩展，然后启动IE，运行后的效果示意图:
总结
上面我们介绍了如何创建一个最简单的菜单扩展，接下来我将探讨IE扩展的一些更为高级的技术。
新浪微博：http://t.sina.com.cn/androidguy 昵称：李宁_Lining