开发学院软件开发 VC Excel2000/XP和PowerPoint2000/XP内部COM插件的实... 阅读

Excel2000/XP和PowerPoint2000/XP内部COM插件的实现

　2006-07-22 11:45:19　来源：WEB开发网　　　

核心提示： HKCU{Software{Microsoft{Office{PowerPoint{Addins{''PPTAddin.PowerPoint2000Addin''{val FriendlyName = s ''PowerPoint2000 A

HKCU
{
　Software
　{
　　Microsoft
　　{
　　　Office
　　　{
　　　　PowerPoint
　　　　{
　　　　　Addins
　　　　　{
　　　　　　''PPTAddin.PowerPoint2000Addin''
　　　　　　{
　　　　　　　val FriendlyName = s ''PowerPoint2000 Addin''
　　　　　　　val Description = s ''PowerPoint2000下插件''
　　　　　　　val LoadBehavior = d ''00000003''
　　　　　　　val CommandLineSafe = d ''00000001''
　　　　　　}
　　　　　}
　　　　}
　　　}
　　}
　}
}

第三点：Excel2000和PowerPoint2000中没有ActiveExplorer对象，所以不必再经过它获取CommandBars，直接从_Application中获得CommandBars对象进行操作。修改部分如下面源码所示:

Excel2000下:

// 装缷插件时处理
STDMETHOD(OnConnection)(IDispatch * Application, ext_ConnectMode ConnectMode, IDispatch * AddInInst, SAFEARRAY * * custom)
{
　　　　CComPtr < Office::_CommandBars> spCmdBars;
　　　　// Excel应用接口_Application
　　　　CComQIPtr<MSExcel::_Application> spApp(Application);
　　　　ATLASSERT(spApp);
　　　　
　　　　// 获取CommandBars接口
　　　　HRESULT hr = spApp->get_CommandBars(&spCmdBars);
　　　　if(FAILED(hr))
　　　　　　return hr;
　　　　ATLASSERT(spCmdBars);
　　　　// ……
}

PowerPoint2000下:

// 装缷插件时处理
STDMETHOD(OnConnection)(IDispatch * Application, ext_ConnectMode ConnectMode, IDispatch * AddInInst, SAFEARRAY * * custom)
{
　　　　CComPtr < Office::_CommandBars> spCmdBars;
　　　　// Word应用接口_Application
　　　　CComQIPtr<MSPPT::_Application> spApp(Application);
　　　　ATLASSERT(spApp);
　　　　
　　　　// 获取CommandBars接口
　　　　HRESULT hr = spApp->get_CommandBars(&spCmdBars);
　　　　if(FAILED(hr))
　　　　　　return hr;
　　　　ATLASSERT(spCmdBars);
　　　　// ……
}

好了,Excel2000、PowerPoint2000、Word2000和Outlook2000下的内部COM插件实现的不同点主要就这些了,具体实现的详细代码可参看几篇文章所附带示例源码，内有详细注释。

参考文献：

Office2000下内部COM插件的编程实现 -- 徐景周(译者)

Word2000/XP中内部COM插件的编程实现 – 徐景周

ATL开发指南(第二版) -- Tom Armstrong & Ron Patton

上一页 1 2 3