亚洲图片在线观看,亚洲一区二区高清视频,欧美69视频

jay — Tue, 13 Mar 2007 07:19:00 GMT

介绍

除了可以向IE中添加自定义菜单外，我们�q�可以向IE的工��h��上添加自定义的按钮。自定义按钮同自定义菜单COM扩展的实现几乎一��P�� 除了在注册时需要添加的注册表项不同�?注意�Q�同菜单扩展一��P��自定义的按钮扩展也必��?ins cite="mailto:Han%20Lei" datetime="2003-09-11T19:16">�?/ins>IE5及以后的版本才支持�?

创徏COM�l��g

下面我们要创建的IE工具条按钮要�E�微复杂一些，当点��L��Q�不再只是显�C�Z��个简单的对话框了�Q�而是让当前浏览器��览我的个�h�|�站 http://hubdog.csdn.net。同前一节一��P�� 首先创徏ActiveX Library�Q�保存�ؓIEButton.dpr�Q�然后再新徏一个名为TIEHomeButton�?COM Object�Q�保存向导生成的文�g为CIEButton.pas�?

同样的按钮扩展也需要实现IOleCommandTarget接口�Q�同时�ؓ了能�?a name="baidusnap1">调用IE的功能，�?b style="COLOR: black; BACKGROUND-COLOR: #a0ffff">调用��览器浏览指定的�|�址�Q�我们还需要实�?IObjectWithSite接口。完成的�cȝ��定义如下�Q?

type

TIEHomeButton = class(TComObject, IOleCommandTarget, IObjectWithSite)

private

ShellBrowser: IShellBrowser;

IE:IWebBrowser;

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;

//IObjectWithSite接口定义

function SetSite(const pUnkSite: IUnknown): HResult; stdcall;

function GetSite(const riid: TIID; out site: IUnknown): HResult; stdcall;

end;

其中IObjectWithSite接口有SetSite�?b style="COLOR: black; BACKGROUND-COLOR: #ffff66">GetSite�Ҏ��。其中IE会在�W�一�ơ加载工��h��按钮扩展�?b style="COLOR: black; BACKGROUND-COLOR: #a0ffff">调用SetSite�Q�将��览器的
IShellBrowser作�ؓpUnkSite参数传递进来，我们可以从pUnkSite参数获得IServiceProvider接口�Q��ƈ调用IServiceProvider接口的QueryService获得��览器的IWebBrower2接口�Q�然后将IE的接口保存�v来，�?面在点击按钮�Ӟ��
我们需�?b style="COLOR: black; BACKGROUND-COLOR: #a0ffff">调用IWebBrowser2接口的Navigate�Ҏ��览我的哈巴狗的��窝�|�站�?

function TIEHomeButton.SetSite(const pUnkSite: IInterface): HResult;

var

Service:IServiceProvider;

begin

ShellBrowser := pUnkSite as IShellBrowser;

Service:=ShellBrowser as IServiceProvider;

Service.QueryService(IWebBrowserApp,IWebBrowser2, IE);

Result := S_OK;

end;

IE同时�q�会不时�?b style="COLOR: black; BACKGROUND-COLOR: #a0ffff">调用GetSite�Ҏ��来从我们保存的pUnkSite接口获得指定的riid的接口，

function TIEHomeButton.GetSite(const riid: TIID;

out site: IInterface): HResult;

begin

if Supports(ShellBrowser, riid, site) then

Result := S_OK

else

Result := E_NOTIMPL;

end;

如果pUnkSite指针支持该接口，则返回S_OK�Q�否则返回E_最后，我们需要在IOleCommandTarget接口中实�?/code>Exec�Ҏ��来执行浏览网站的功能�Q?/code>

IWebBrowser2接口的Navigate�Ҏ��可以多个参数�Q?�q�里我们只需要指定要���览的Url���可以了�Q�其它参数都讄���为空�Q���用EmptyParam预定义��|���?
function TIEHomeButton.Exec(CmdGroup: PGUID; nCmdID, nCmdexecopt: DWORD;
  const vaIn: OleVariant; var vaOut: OleVariant): HResult;
begin
  Result := S_OK;
  IE.Navigate(''http://hubdog.csdn.net'', emptyParam,emptyParam,emptyParam,emptyParam);
end;  
注册扩展 
  
要想让IE能够在启动后正确昄���自定义的工具条按钮扩展，需要在注册表中填写一些配�|�信息�?
1.         首先要在HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\��目下新��Z��个关键字�Q�名为扩展的Guid的字�W�串形式�?
2.         然后在新建的HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\<扩展的Guid>关键字下再创��Z��个名为CLSID ��目�Q�设定��gؓ{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}�?
3.         然后在HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\<扩展Guid>关键字下��d��名�ؓClsidExtension的字�D�，�q�回��gؓ按钮扩展的Guid的字�W�串形式�?
4.         默认�Ӟ��一个新加的扩展按钮不会马上昄���在工��h��上，但是我们可以在HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\<扩展Guid>关键字下��d��Default Visible字段�Q��ƈ讑֮�其��gؓYes�Q�这样IE启动时会自动昄���我们��d��的按钮，但是要注意如果用户在��d��按钮前��用了工具�?右键菜单中的自定义…命令调整过工具条按钮的昄���讄����Q�则我们的扩展按钮不会自动出��C���Q�必���L��通过自定义对话框来手工添加或�?b style="COLOR: black; BACKGROUND-COLOR: #a0ffff">调用重置按钮恢复默认讄���来显�C�添加的按钮�Q�见下图�Q?
5.         每个按钮都要有一个显�C�字�W�串�Q�在HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer
\Extensions\<扩展Guid>关键字下��d��ButtonText��目�Q�设定其��gؓ按钮的标题。同时按钮还需要指定两�?br />图标�Q�一个是热点图标当鼠标停留在按钮上时昄����Q�一个正常图标用于��^时显�C�。图标的文�g和�\径需要写�?br />HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\<扩展Guid>关键字下的HotIcon�?br />Icon字段中，值对应于Ico文�g�Q�或者可执行文�g中的图标资源�Q�如果图标是可执行文件的资源�Q�还需要指�?br />图标资源索引倹{��结果示例如下：C:\PROGRA~1\AbcSoft\IEPlugin.dll,209或�?c:\IE.ico 
 
创徏工具条图�?/b>
 工具条需要的图标文�g是有一定要求的。首先是���寸要求�Q�每个按钮都需要提�?0X20�?6X16个像素的图标�Q�其�?br />20X20的大图标用于�q�x��昄����Q?16X16的图标是用于IE处于全屏�q�显�C�状态时的界面显�C�，见下表示例： 
大小�Q�像素） �C�Z��
20x20 
16x16 
其次有颜色上的要求，当图标处于热点状态时�Q�推荐��用彩色图标，而当图标为正常显�C�状态时�Q�推荐设定Icon字段
对应的图标�ؓ灰度图标�?同时微��Y推荐提供的图标即�?56色的�Q�也�?6色的。这里�ؓ了简便�v见，我只使用一个图
标用于热点和正常昄����?
图标的创建可以��用专业的图标设计器来创徏�Q�不推荐使用Delphi自带的Image Editor工具�Q�因为Image Editor只能
创徏16X16, 32X32大小的图标， 不能创徏20X20大小的图标。我一般是使用Icon Cool Editor来创建图标�?
�q�就是我创徏�?0X20的图�?img height="16" src="http://delphi.sharpplus.com/Delphi/delphi_ie_button.files/image002.jpg" width="17" border="0" />�Q�把它保存�ؓHome.ico,��Z��能将图标文�g�~�译�q�最后生成COM Server的Dll文�g中，
�~�写一个资源脚本文件Home.rc: 
1234       ICON   Home.ICO 
注意�Q�这里我使用1234作�ؓ图标的标识而不是��用一个更好记的文本串比如Home�Q?/ins>是因为IE只能使用数字标识的图�?br />作�ؓ按钮的图标。��用brcc32 �~�译Home.rc为Home.res。注意，在IEButton.dpr中已�l�有�?code>{$R *.RES}�q�句话表�C�编
译COM Server时会���所有的资源文�g�~�译�q�生成的DLL中�?/code>
 
注册�q�程接下来是�~�写后的注册代码�Q�都是一些对注册表的操作,注意删除时是�Ҏ��Guid�q�行删除的，因�ؓGuid是唯一的��|�� 
//��d��工具条按�?
procedure AddToolbarBtn(Visible: Boolean; BtnText, HotIcon,
  Icon, Guid: string);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  try
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey(''\Software\Microsoft\Internet Explorer\Extensions\'' + Guid, True);
    if Visible then
      WriteString(''Default Visible'', ''Yes'')
    else
      WriteString(''Default Visible'', ''No'');
    WriteString(''ButtonText'', BtnText);
    WriteString(''HotIcon'', HotIcon);
    WriteString(''Icon'', Icon);
    WriteString(''CLSID'', ''{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}'');
    WriteString(''ClsidExtension'', Guid);
    CloseKey;
  finally
    Free;
  end;
end;
 
//按Guid删除按钮
procedure RemoveToolbarBtn(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;
然后�~�写COM�l��g工厂�c�，调用注册和删除注册表��的�Ҏ��来实现COM�l��g的注册和反注册： 
type
  TIEHomeButtonFactory = class(TComObjectFactory)
  public
    procedure UpdateRegistry(Register: Boolean); override;
  end;
�?/code>
function GetDllName: string;
var
  Buffer: array[0..261] of Char;
begin
  GetModuleFileName(HInstance, Buffer, SizeOf(Buffer));
  Result := string(Buffer);
end;
 
procedure TIEHomeButtonFactory.UpdateRegistry(Register: Boolean);
begin
  inherited;
  if Register then
    AddToolbarBtn(true, ''HomeButton'', GetDllName+'',1234'', GetDllName+'',1234'', GuidToString(classid))
  else
    RemoveToolbarBtn(GuidToString(classid));
end;
的图标作�?br />按钮图标�Q�这里�ؓ了简便�v见，HotIcon�?/code>Icon使用的是同一个图标�?/code>
调用���览器的功能完成我们的需要，通过调用���览器的接口我们可以实现一些更加实用更加复杂的功能�Q�后面我们将�q�一步探讨�?img src ="http://m.shnenglu.com/yishanhante/aggbug/19751.html" width = "1" height = "1" />

jay 2007-03-13 15:19 发表评论



Windows区对�?Bands)的创��Z��定制
jay — Mon, 12 Mar 2007 08:07:00 GMT

		
				
						
								
										
												���览栏区对象
���览栏区对象����U�浏览栏�Q�它是从IE4.0引入的，它是邻近���览器窗格的一个显�C�区域。实际上它是IE�H�口中的一个子�H�口�Q�可以用它来昄���信息及与用户交互。浏览栏卛_��以是以垂直方式定位在���览器窗格的左边。也可以水��^方式定位在浏览器�H�格下面。（如图一�Q?
						
				
		
		
				
		
		
				
						
								图一
在浏览栏中可以创建很多子菜单或选项�Q�用戯���以不同方式选择�q�些子菜单或选项提供的功能，打开IE或者资源管理器�Q�从“查看”菜单中选择“浏览栏”，可以看到Windows提供了几�U�标准的���览栏菜单，如“搜索（Search�Q��?“收藏夹�Q�Favorites�Q�”， 和“历史记录（History�Q��?以及“文件夹�Q�All Folders�Q�”。（如图二） 
						
				
		
		
				
		
		
				
						
								图二
��Z��创徏定制的浏览栏�Q�必��ȝ���E�实玎ͼ�然后注册它们。Windows在外壻I��Shell�Q?.71中引入了区对象。它提供与普通窗口一��L��功能。但因�ؓ它是以IE或外壳�ؓ容器的COM对象�Q�所以实现�v来就与普通窗口有所不同。图一中显�C�的���是一个简单的���览栏例子。图中有一个垂直的���览栏和一个水�q�的���览栏�?br />
工具栏区对象
工具栏区对象����U�工��h���Q�它是在IE5.0中引入用以支持单选工��h���Q�radio toolbar�Q�特性的。IE工具栏实际上是一个Rebar控�g�Q�它包含了几个工��h���Q�toolbar�Q�控件。通过创徏工具栏，你可以将某个区对象功能添加到Rebar控�g中。不论是在IE中还是在资源���理器中�Q�区对象都是一��L���Q�所以工��h��也是一个通用�H�口。（如图三）

图三

用户可以从“查看”菜单中的“工��h��”子菜单中选择昄���单选工��h���Q�也可以在工��h��区域单击鼠标右键从它的上下文菜单中选择昄���单选工��h���?br />

				

						
								
										
												二、实现区对象
												

										���管可以像��用普通窗口一样��用区对象�Q�但它们毕竟是COM对象�Q�存在于某个容器之中。如���览栏和工具栏位于IE之中�Q�桌面区位于外壳之中。虽然它们的功能不同�Q�但其基本实现非常相伹{��一个主要的差别是它们的注册方式不同�Q�而注册方式的不同又决定了对象的类型及其容器。这一部分我们先讨论所有区对象实现的共性。其它的实现�l�节可参�?a  target="_self">垂直���览栏例子程�?/a>�?br />区对象除了要实现 IUnknown �?IClassFactory 两个接口之外�Q�所有的区对象还必须实现以下�q�几个接口： IDeskBand  
 IObjectWithSite  
 IPersistStream 
另外�Q�在注册旉���了注册它们的CLSID之外�Q�浏览栏和桌面区对象�q�必��进行组件类别（category�Q�的注册。它军_��了对象的�c�d��及其容器。工��h��不需要进行种�c�L��册。归�U���v来，需要进行CATID注册的三�U�区对象是：
区对象类�?/b> �l��g�c�d��
垂直���览�?/td> CATID_InfoBand
水��^���览�?/td> CATID_CommBand
桌面�?/td> CATID_DeskBand

对于如何注册区对象的�q�一步讨�����参见注册部分�?br />如果某个区对象接受用戯���入，它还必须实现IInputObject接口。如果要往上下文菜单中��d��菜单��目�Q�还必须实现IContextMenu接口。注意：工具栏区对象不支持上下文菜单�?br />    因�ؓ区对象实现的是子�H�口�Q�所以它们还必须有窗口过�E�来处理Windows的消息�?br />    区对象可以通过其IOleCommandTarget接口发送命令到它的容器。�ؓ了得到这个接口的指针�Q�必��调用容器的IInputObjectSite::QueryInterface�Ҏ���?/xxxxime>��h��IID_IoleCommandTarget。然后用IOleCommandTarget::Exec把命令发送到容器。命令组是CGID_DeskBand。当某个区对象的IDeskBand::GetBandInfo�Ҏ��被调用时�Q�容器用dwBandID参数���一个标�C�符赋给�q�个对象。这个标�C�符被用于IOleCommandTarget::Exec�Ҏ��调用时所用命令组中的三个命��o。目前命令组共支持四个IOleCommandTarget::Exec命��oIDs。这四个命��o的解释如下：
DBID_BANDINFOCHANGED——Band的信息已改变。参数pvaIn的值应该是最�q�一�ơ调用所用的band标示�W�。容器将调用�q�个标示�W�所指的band对象的IDeskBand::GetBandInfo�Ҏ����h��更新的信息�?br />DBID_MAXIMIZEBAND——容器将最大化band。参数pvaIn的值应该是最�q�一�ơ调用所用的band标示�W��?br />DBID_SHOWONLY——关闭或打开容器中其它band。参数pvaIn的��gؓVT_UNKNOWN�c�d���Q�可以取下列��g��一�Q?br />�?/td> 描述
pUnk �q�个对象IUnknown接口的指针。所有其它的桌面band���被隐藏�?/td>
0 隐藏所有桌面band�?/td>
1 昄���所有桌面band�?/td>
DBID_PUSHCHEVRON——目前没有实现�?br />
注册
区对象必���M��������E�内服务器（in-process�Q�注册。其�U�程模型必须为“Apartment”。也���是说区对象必须以DLL的�Ş式来实现。用来描�q�服务器注册条目的缺省值是一个菜单文本串。就拿浏览栏来说。这个菜单出现在资源���理器或IE “查看（View�Q�”菜单的“浏览栏�Q�Explorer Bar�Q�”子菜单中。而工��h��的菜单则出现在资源管理器或IE “查看（View�Q�”菜单的“工��h���Q�Toolbars�Q�”子菜单中。桌面区出现在�Q务栏上下文菜单的“工��h���Q�Toolbars�Q�”子菜单中。作�����单资源，提供键盘快捷的方法与一般菜单快捷键相同。也���是����?amp;”字�W�放在某个单词字母前表示�q�个字母昄���下划�U�来指示快捷键�?br />通常区对象的注册条目如下:
HKEY_CLASSES_ROOT
...
    CLSID
	...
        {Band 对象�?CLSID GUID} = "菜单文本�?
            InProcServer32 = "DLL 路径�?
                ThreadingModel = "Apartment"
工具栏区对象必须�q�要注册对象的CLSID。�ؓ此必���d��HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Toolbar下创��Z��个REG_SZ��|��用工��h��区对象的CLSID GUID串命名。如�Q?br />HKEY_LOCAL_MACHINE
    Software
        Microsoft
            Internet Explorer
                Toolbar
                    { Band 对象�?CLSID GUID }

除此之外�Q�还有几个可选的注册值可以加到注册表中，本文的例子中未��用这些倹{�?
HKEY_CLASSES_ROOT\CLSID\{Band 对象�?CLSID GUID}\Instance\CLSID, 它应该被讄����?"{4D5C8C2A-D075-11D0-B416-00C04FB90376}". 
HKEY_CLASSES_ROOT\CLSID\{Band对象的CLSID GUID}\Instance\InitPropertyBag\Url 它应该被讄��������在浏览栏昄���的包含HTML内容的文件位�|��?br />
\HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Explorer Bars\{Band 对象�?CLSID GUID}\BarSize 它应该被讄���为栏目的高和宽，它需要八个字节才能作��Z��攑օ�注册表，字节之间用逗号分开。开始的四个字节一像素为单位指定大���，格式要用十六�q�制�Q�从最左边字节开始。最后四个字节是保留字节�Q�应该将它置为零。例如，垂直���览栏的�~�省宽度�?91�Q?x123�Q�像素，则BarSize 的值应该是"23,01,00,00,00,00,00,00"  
如果要用���览栏显�C�HTML�Q�则前两个注册项是必��ȝ��。最后一个注册项则根据垂直的或者水�q�的���览栏定义相应的�~�省宽度和高度�?br />能显�C�HTML的浏览栏�Q�缺省宽度�ؓ291各像素单位）注册表条目的形式如下�Q?br />HKEY_CLASSES_ROOT
...
    CLSID
	...
        {Band 对象�?CLSID GUID} = "菜单文本�?
            InProcServer32 = "DLL 路径�?
                ThreadingModel = "Apartment"
            Instance
                CLSID = "{4D5C8C2A-D075-11D0-B416-00C04FB90376}"
                InitPropertyBag
                    Url = "HTML文�g"
...
HKEY_CURRENT_USER
...
    Software
    ...
        Microsoft
        ...
            Internet Explorer
            ...
                Explorer Bars
                    { Band 对象�?CLSID GUID }
                        BarSize = "23,01,00,00,00,00,00,00"

你可以通过�~�程的方式来处理区对象类�?CATID 的注册。创��Z��个组件类别管理器对象(CLSID_StdComponentCategoriesMgr)�q�请求一个指向ICatRegister接口的指针。将区对象的CLSID和CATID传递到ICatRegister::RegisterClassImplCategories�?br />三、定制浏览栏的一个简单例�?/a>
�q�个例子展示了前面所介绍�q�的垂直���览栏的整个实现�q�程。它借助了��^台SDK�Q�Platform SDK——在msdn中可以找刎ͼ�中关于band对象�C����代码。其中还包括了水�q�x��览栏和桌面band的实��C��码。详�l�实现细节请参见�Q�CommBand.cpp和DeskBand.cpp�?br />创徏定制���览栏的基本�q�程是这��L���Q?br />实现DLL需要的函数�?
实现必须的COM接口�?
实现��M��惌���的可选接口�?
注册对象的CLSID�?
�q�行恰当的组件种�c�L��册�?
创徏IE子窗口，调整�H�口大小适合���览栏的昄���区域�?
使用子窗口显�C�Z��息�ƈ与用户交互�?
实际上，只要通过恰当的组件种�c�L��册，���览栏例子代码便既可用于���览栏的实现�Q�也能用于桌面band实现。更加复杂的实现���需要定制每�U�对象类型的昄���区域和容器。但大多数的定制工作都能通过范例代码以及Windows子窗口的�~�程技术来完成。例如，你可以添加用户交互控制或者进行色彩丰富的囑�Ş昄���处理�?br />
DLL函数
所有三�U�区对象被打包在一个DLL中，它输��Z��下的函数�Q?br />DllMain 
DllCanUnloadNow  
DllGetClassObject  
DllRegisterServer  
�q�些函数可以在BandObjs.cpp中找刎ͼ�它们服务于所有三�U�区对象。前三个函数乃标准的实现�Q�我们不再本文中讨论。类工厂也是标准实现�Q�代码可以在ClsFact.cpp中找�?br />
注册定制的浏览栏

有了COM对象后，必须�Ҏ��览栏的CLSID�q�行注册。另外如果要与IE或资源管理器
协调�q�行�Q�还必须�q�行的恰当的�l��g�U�类�Q�CATID_InfoBand�Q�注册。这个工作由DllRegisterServer处理。浏览栏例子代码有关的处理部分如下：
...
//注册���览栏对�?
if(!RegisterServer(CLSID_SampleExplorerBar, TEXT("垂直���览栏例�?)))
return SELFREG_E_CLASS;

//注册���览栏的对象�l��g�U�类
if(!RegisterComCat(CLSID_SampleExplorerBar, CATID_InfoBand))
return SELFREG_E_CLASS;
...
区对象的注册使用通常的COM�q�程�Q�它��q��有函数RegisterServer处理�?br />除了CLSID之外�Q�这个区对象服务器还必须注册一个以上的�l��g�U�类。这实际上是垂直���览栏和水��^���览栏实��C��间的主要差别。这个过�E�的处理是通过创徏一个组件种�cȝ��理器对象�Q�CLSID_StdComponentCategoriesMgr�Q�，�q�用ICatRegister::RegisterClassImplCategories�Ҏ��来注册区对象服务器。在�q�个例子中，�l��g�U�类注册的处理是通过���浏览栏的CLSID和CATID传递到�U�有函数RegisterComCat完成的：
BOOL RegisterComCat(CLSID clsid, CATID CatID)
{
ICatRegister   *pcr;
HRESULT        hr = S_OK ;
    
CoInitialize(NULL);

hr = CoCreateInstance(  CLSID_StdComponentCategoriesMgr, 
                        NULL, 
                        CLSCTX_INPROC_SERVER, 
                        IID_ICatRegister, 
                        (LPVOID*)&pcr);
if(SUCCEEDED(hr))
   {
   hr = pcr->RegisterClassImplCategories(clsid, 1, &CatID);
   pcr->Release();
   }
        
CoUninitialize();

return SUCCEEDED(hr);
}
						
				
		
		

		
				
						
								
										
												
														IUnknown
构造函敎ͼ�析构函数和IUnknown实现比较���单，本文在此不讨论。细节请参见源代码�?br />IObjectWithSite接口
当用户选择某个���览栏时�Q�容器调用相应band对象的IObjectWithSite::SetSite�Ҏ��。参数将被设�|�成�q�个现场�Q�Site�Q�的IUnknown指针�?br />通常�Q�SetSite实现应该完成下列步骤�Q?br />释放当前所把持的�Q何现场指针�?
如果传递到SetSite的指针被�|��ؓNULL�Q�此则区对象被删除。SetSite可以�q�回S_OK�?
如果传递到SetSite的指针被�|��ؓ非NULL�Q�则建立新的现场。SetSite应该做以下的事情�Q?br />
调用现场QueryInterface�Ҏ����h��IOleWindow接口�?
调用IOleWindow::GetWindow获取父窗口句柄，�q�存储它�Q�以便以后��用。如果不再��用的话，���释放IOleWindow接口�?
创徏此band对象的窗口�ؓ一个子�H�口�Q�其父窗口就是上一步获得的那个�H�口。注意在此不能将它创建成可见�H�口�?
如果此band对象实现IInputObject�Q�调用现场QueryInterface�Ҏ����h��IInputObjectSite接口�Q�存储这个接口的指针以备后用�?
如果所有步骤都成功�Q�则�q�回S_OK�Q�否则返回OLE定义的错误代码以指示错误�c�d���?
以下是浏览栏实现SetSite的方法。m_pSite是私有成员变量，用它来保存IInputObjectSite指针�Q�而m_hwndParent保存父窗口句柄�?br />STDMETHODIMP CExplorerBar::SetSite(IUnknown* punkSite)
{
//如果某个现场被把持，则释攑֮�
if(m_pSite)
   {
   m_pSite->Release();
   m_pSite = NULL;
   }

//如果punkSite 不�ؓNULL, 建立一个新的现�?
if(punkSite)
   {
   //获取父窗�?
   IOleWindow  *pOleWindow;

   m_hwndParent = NULL;
   
   if(SUCCEEDED(punkSite->QueryInterface(IID_IOleWindow, (LPVOID*)&pOleWindow)))
      {
      pOleWindow->GetWindow(&m_hwndParent);
      pOleWindow->Release();
      }

   if(!m_hwndParent)
      return E_FAIL;

   if(!RegisterAndCreateWindow())
      return E_FAIL;

   //获取柄保存IInputObjectSite指针
   if(SUCCEEDED(punkSite->QueryInterface(IID_IInputObjectSite, (LPVOID*)&m_pSite)))
      {
      return S_OK;
      }  
   return E_FAIL;
   }
return S_OK;
}
�q�个例子的GetSite只简单地用SetSite保存的现场指针实��C��对现场QueryInterface�Ҏ��的调用�?br />STDMETHODIMP CExplorerBar::GetSite(REFIID riid, LPVOID *ppvReturn)
{
*ppvReturn = NULL;

if(m_pSite)
   return m_pSite->QueryInterface(riid, ppvReturn);

return E_FAIL;
}
�H�口创徏��q��有方法RegisterAndCreateWindow负责。如果这个窗口不存在�Q�此�Ҏ�����浏览栏�H�口创徏成一个大���适当的子�H�口�Q�它的父�H�口���是由SetSite获得的那个窗口。子�H�口的句柄存储在m_hwnd变量中�?br />BOOL CExplorerBar::RegisterAndCreateWindow(void)
{
//如果�q�个�H�口不存在，则创建它
if(!m_hWnd)
   {
   //子窗口不能没有父�H�口
   if(!m_hwndParent)
      {
      return FALSE;
      }

   //如果�H�口�c�L��有注册，则必���L���?
   WNDCLASS wc;
   if(!GetClassInfo(g_hInst, EB_CLASS_NAME, &wc))
      {
      ZeroMemory(&wc, sizeof(wc));
      wc.style          = CS_HREDRAW | CS_VREDRAW | CS_GLOBALCLASS;
      wc.lpfnWndProc    = (WNDPROC)WndProc;
      wc.cbClsExtra     = 0;
      wc.cbWndExtra     = 0;
      wc.hInstance      = g_hInst;
      wc.hIcon          = NULL;
      wc.hCursor        = LoadCursor(NULL, IDC_ARROW);
      wc.hbrBackground  = (HBRUSH)CreateSolidBrush(RGB(0, 0, 192));
      wc.lpszMenuName   = NULL;
      wc.lpszClassName  = EB_CLASS_NAME;
      
      if(!RegisterClass(&wc))
         {
         //如果注册��p�|�Q�下面的CreateWindow函数���失�?
         }
      }

   RECT  rc;

   GetClientRect(m_hwndParent, &rc);

   //创徏�q�个�H�口。WndProc ���徏立m_hWnd变量
   CreateWindowEx(   0,
                     EB_CLASS_NAME,
                     NULL,
                     WS_CHILD | WS_CLIPSIBLINGS | WS_BORDER,
                     rc.left,
                     rc.top,
                     rc.right - rc.left,
                     rc.bottom - rc.top,
                     m_hwndParent,
                     NULL,
                     g_hInst,
                     (LPVOID)this);
      
   }
return (NULL != m_hWnd);
}
IPersistStream接口
IE���调用浏览栏的IPersistStream接口�Q�以便允许这个浏览栏加蝲或存储持久性数据。如果没有持久性数据，�q�个�Ҏ��仍然必须�q�回一个成功代码。IPersistStream接口从IPersist�l�承而来�Q�所以要实现五个�Ҏ���Q?br />GetClassID, IsDirty, Load, Save, GetSizeMax�?br />本文的这个浏览栏例子不��用持久性数据，�q�且只有IPersistStream的最���实现。GetClassID�q�回对象的CLSID�Q�CLSID_SampleExplorerBar�Q�，其余的方法返回S_OK, 或者S_FALSE, 或�?E_NOTIMPL。有关细节请参见IPersistStream的实现�?br />
IDeskBand接口
IDeskBand接口是区对象专用接口。它只有一个方法。IDeskBand接口从IDockingWindow�l�承而来�Q�而IDockingWindow又从IOleWindow�l�承而来�?br />IOleWindow有两个方法：GetWindow �?ContextSensitiveHelp。浏览栏例子的GetWindow实现�q�回���览栏的子窗口句柄m_hwnd。因��Z��实现上下文敏感帮助，所以ContextSensitiveHelp�q�回E_NOTIMPL�?br />IDockingWindow接口有三个方法：ShowDW, CloseDW, �?ResizeBorder。ResizeBorder不在��M��区对象中使用�Q�应该返回E_NOTIMPL。ShowDW�Ҏ���Ҏ��其不同的参数值控制浏览栏�H�口的显�C�或隐藏�Q?br />STDMETHODIMP CExplorerBar::ShowDW(BOOL fShow)
{
if(m_hWnd)
   {
   if(fShow)
      {
      //昄����H�口
      ShowWindow(m_hWnd, SW_SHOW);
      }
   else
      {
      //隐藏�H�口
      ShowWindow(m_hWnd, SW_HIDE);
      }
   }

return S_OK;
}

CloseDW�Ҏ��摧毁���览栏窗口：
STDMETHODIMP CExplorerBar::CloseDW(DWORD dwReserved)
{
ShowDW(FALSE);

if(IsWindow(m_hWnd))
   DestroyWindow(m_hWnd);

m_hWnd = NULL;
   
return S_OK;
}
其余的方法，如GetBandInfo是IDeskBand专用的。IE使用它来指定���览栏的标示�W�以及视图模式。IE�q�可能填写DESKBANDINFO�l�构的dwMask成员从浏览栏��h��更多的信息，�q�个�l�构用第三个参数传递。GetBandInfo应该存储�q�个标示�W�和视图模式�q�用所��h��的数据填写DESKBANDINFO�l�构。下面是本文���览栏例子所实现GetBandInfo�Q?br />STDMETHODIMP CExplorerBar::GetBandInfo(DWORD dwBandID, DWORD dwViewMode, DESKBANDINFO* pdbi)
{
if(pdbi)
   {
   m_dwBandID = dwBandID;
   m_dwViewMode = dwViewMode;

   if(pdbi->dwMask & DBIM_MINSIZE)
      {
      pdbi->ptMinSize.x = MIN_SIZE_X;
      pdbi->ptMinSize.y = MIN_SIZE_Y;
      }
   if(pdbi->dwMask & DBIM_MAXSIZE)
      {
      pdbi->ptMaxSize.x = -1;
      pdbi->ptMaxSize.y = -1;
      }
   if(pdbi->dwMask & DBIM_INTEGRAL)
      {
      pdbi->ptIntegral.x = 1;
      pdbi->ptIntegral.y = 1;
      }
   if(pdbi->dwMask & DBIM_ACTUAL)
      {
      pdbi->ptActual.x = 0;
      pdbi->ptActual.y = 0;
      }
   if(pdbi->dwMask & DBIM_TITLE)
      {
      lstrcpyW(pdbi->wszTitle, L"���览栏例�?);
      }
   if(pdbi->dwMask & DBIM_MODEFLAGS)
      {
      pdbi->dwModeFlags = DBIMF_VARIABLEHEIGHT;
      }
   if(pdbi->dwMask & DBIM_BKCOLOR)
      {
      //通过�U�d���q�个标志来��用默认的背景颜色
      pdbi->dwMask &= ~DBIM_BKCOLOR;
      }
   return S_OK;
   }
return E_INVALIDARG;
}
IInputObject接口
如果某个band对象要接受用戯���入。那���必���d��现IInputObject接口。IE实现IInputObjectSite�q�用IInputObject�l�护用户的输入焦炏V��浏览栏需要实��C��个方法：UIActivateIO, HasFocusIO, �?TranslateAcceleratorIO�?br />IE调用UIActivateIO通知���览栏它以被�Ȁ�z�L��者被�|�灰。当被激�z�L���Q�浏览栏例子调用SetFocus来设�|�窗口输入焦炏V�?br />当要���定哪个�H�口有输入焦�Ҏ���Q�IE调用HasFocusIO。如果浏览栏的窗口或它的子窗口之一有输入焦点，HasFocusIO�q�回S_OK。否则，它返回S_FALSE�?br />TranslateAcceleratorIO允许对象处理键盘加速键。本文浏览栏例子没有实现�q�个�Ҏ���Q�所以它�q�回S_FALSE�?br />���览栏例子实现IInputObjectSite的细节如下：
STDMETHODIMP CExplorerBar::UIActivateIO(BOOL fActivate, LPMSG pMsg)
{
if(fActivate)
   SetFocus(m_hWnd);

return S_OK;
}

STDMETHODIMP CExplorerBar::HasFocusIO(void)
{
if(m_bFocus)
   return S_OK;

return S_FALSE;
}

STDMETHODIMP CExplorerBar::TranslateAcceleratorIO(LPMSG pMsg)
{
return S_FALSE;
}
�H�口�q�程
因�ؓ区对象的昄���用的是子�H�口�Q�所以它必须实现�H�口�q�程来处理Windows消息。浏览栏例子实现了一个最���单的版本�Q�它的窗口过�E�只处理了五个消息：WM_NCCREATE, WM_PAINT, WM_COMMAND, WM_SETFOCUS, �?WM_KILLFOCUS。如果要实现更多的功能，很容易扩充��它处理其它的消息�?br />LRESULT CALLBACK CExplorerBar::WndProc(HWND hWnd, UINT uMessage, WPARAM wParam, LPARAM lParam)
{
CExplorerBar  *pThis = (CExplorerBar*)GetWindowLong(hWnd, GWL_USERDATA);

switch (uMessage)
   {
   case WM_NCCREATE:
      {
      LPCREATESTRUCT lpcs = (LPCREATESTRUCT)lParam;
      pThis = (CExplorerBar*)(lpcs->lpCreateParams);
      SetWindowLong(hWnd, GWL_USERDATA, (LONG)pThis);

      //讄����H�口句柄
      pThis->m_hWnd = hWnd;
      }
      break;  
   case WM_PAINT:
      return pThis->OnPaint();  
   case WM_COMMAND:
      return pThis->OnCommand(wParam, lParam);  
   case WM_SETFOCUS:
      return pThis->OnSetFocus();
   case WM_KILLFOCUS:
      return pThis->OnKillFocus();
   }
return DefWindowProc(hWnd, uMessage, wParam, lParam);
}
�q�里WM_COMMAND消息处理器简单地�q�回零。WM_PAINT消息处理器创建文本�ƈ昄���在资源管理器或IE的区对象中�?br />LRESULT CExplorerBar::OnPaint(void)
{
PAINTSTRUCT ps;
RECT        rc;

BeginPaint(m_hWnd, &ps);
GetClientRect(m_hWnd, &rc);
SetTextColor(ps.hdc, RGB(255, 255, 255));
SetBkMode(ps.hdc, TRANSPARENT);
DrawText(ps.hdc, TEXT("���览栏例�?), -1, &rc, DT_SINGLELINE | DT_CENTER | DT_VCENTER);
EndPaint(m_hWnd, &ps);
return 0;
}
WM_SETFOCUS �?WM_KILLFOCUS消息处理器通过调用本现场的IInputObjectSite::OnFocusChangeIS�Ҏ��通知输入焦点现场改变�Q?br />LRESULT CExplorerBar::OnSetFocus(void)
{
FocusChange(TRUE);

return 0;
}

LRESULT CExplorerBar::OnKillFocus(void)
{
FocusChange(FALSE);
return 0;
}

void CExplorerBar::FocusChange(BOOL bFocus)
{
m_bFocus = bFocus;

//通知焦点已改变的输入对象现场
if(m_pSite)
   {
   m_pSite->OnFocusChangeIS((IDockingWindow*)this, bFocus);
   }
}
四、�ȝ��

区对象提供了灉|��和强大的扩展方式�Q�通过定制���览栏��得IE的功能大为增强。桌面区的实现扩展了普通窗口的能力。尽���需要一些对COM的编�E�，但终�I�以子窗口的形式提供了一�U�用��L��面。从而��今后的许多这�U�编�E�实现都能用�c�M��的Windows�~�程技术。虽然本文所讨论的例子只提供了有限的功能�Q�但它示范了区对象全部的�Ҏ��，�q�且可以在此基础上进行扩充来创徏独特和功能强大的的用��L��面�?
						
				
		


jay 2007-03-12 16:07 发表评论


ATL 实现定制�?IE ���览器栏、工��h��和桌面工��h��
jay — Sun, 11 Mar 2007 06:35:00 GMT

		一、引�a�
　　最�q�，�׃��工作的要求，我需要在 IE 上做一些开发工作。于是在 MSDN 上翻阅了一些资料，�Ҏ�� MSDN 上的说明我用 ATL 胜利完成了“资本家老板”分配的��d���?br />�Q��ƈ且在白天睡觉的过�E�中梦到了老板�l�我加工资啦......�Q?br />现在�Q�我�?MSDN 上的原文资料�Q�经�q�翻译整理�ƈ把一�?ATL 的实现奉贤给 VCKBASE 上的朋友们�?
原理
基本band 对象
必须实现�?COM 接口
    IPersistStream
    IObjectWithSite
    IDeskBand、IDockingWindow、IOleWindow
选择实现�?COM 接口
Band 对象注册
ATL 实现
三、原�?/a>

3.1　基本 band 对象
　　Band 对象�Q�从 Shell 4.71(IE 5.0) 开始提供支持。Band 是一�?COM 对象�Q�必���L��在一个容器中��M��用，当然使用它们���好象��用普通窗口是一��L��。IE ���是一个容器，桌面 Shell 也是一个容器，它们提供不同的函数功能，但基本的实现是相似的�?br />　　Band 对象分三�U�类型，���览器栏 band�Q�Explorer bands�Q�、工��h�� band�Q�Tool Bands�Q�和桌面工具�?Desk bands)�Q�而浏览器�?band 又有两种表现形式�Q�垂直和水��^的。那�?IE �?Shell 如何区分�q�加载这�?bands 对象呢？�Ҏ��是：你要对不同的 band 对象�Q�在注册表中注册不同的组件类型（CATID�Q��?br />
Band 样式 �l��g�c�d�� CATID
垂直的浏览器�?/td> CATID_InfoBand 00021493-0000-0000-C000-000000000046
水��^的浏览器�?/td> CATID_CommBand 00021494-0000-0000-C000-000000000046
桌面的工��h�� CATID_DeskBand 00021492-0000-0000-C000-000000000046

　　IE 工具栏不使用�l��g�c�d��注册�Q�而是使用在注册进�?CLSID 的登记方式。详�l�情况见 3.3�?br />　　在例子程序中�Q�实��C��全部四个�c�d���?band 对象�Q�垂直浏览器�?CVerticalBar)昄���了一�?HTML 文�g�Q��ƈ且实��C���?IE �ȝ��口浏览网��늚���D���{�功能；水��^的浏览器�?CHorizontalBar)是一个编辑窗�Q�它同步昄���当前�|�页�?BODY 源文件内容；IE 工具�?CToolBar)最���单，只是��d��了一个空的工��h���Q�桌面工��h��(CDeskBar)实现了一个单行编辑窗口，你可以在上面输入命��o行或文�g名称�Q�回车后它会执行 Shell 的打开动作�?br />
3.2　必须实现�?COM 接口
　　Band 对象�?IE �?Shell 的进�E�内服务器，所以它被包装在 DLL 中。而作�?COM 对象�Q�它必须要实�?IUnknown �?IClassFactory 接口。（大家可以不同操心�Q�因为我们用 ATL 写程序，�q�两个接口是不用我们自己写代码的。）另外�Q�Band 对象�q�必���d���?IDeskBand、IObjectWithSite �?IPersistStream 三个接口�Q?br />　　IPersistStream 是持�l�性接口的一�U�。当 IE 加蝲 band 对象的时候，它通过�q�个接口�?Load �Ҏ��传递属性值给对象�Q�让其进行初始化�Q�而当卸蝲前，IE 则调用这个接口的 Save �Ҏ��保存对象的属性。用 ATL 实现�q�个接口很简单： class ATL_NO_VTABLE Cxxx : 
	......
	public IPersistStreamInitImpl, // ��d���l�承
	......
{
public:
	BOOL m_bRequiresSave; // IPersistStreamInitImpl 所必须的变�?
......
BEGIN_COM_MAP(CVerticalBar)
	......
	COM_INTERFACE_ENTRY2(IPersist, IPersistStreamInit)
	COM_INTERFACE_ENTRY2(IPersistStream, IPersistStreamInit)
	COM_INTERFACE_ENTRY(IPersistStreamInit)
	......
END_COM_MAP()

BEGIN_PROP_MAP(Cxxx)
...... // ��d��需要持�l�性的属�?
END_PROP_MAP()		
　　上面的代码，其实实现的是 IPersistStreamInit 接口�Q�不�q�没有关�p�，因�ؓ IPersistStreamInit �z�����?IPersistStream�Q�实例化了派生类�Q�自然就实例化了基类。在例子�E�序中，我只在桌面工��h��对象中添加了持箋性属性，用来保存和初始化“命令行”。另�?COM_INTERFACE_ENTRY2(A�Q�B)表示的含义是�Q�如果想查询A接口的指针，则提供B接口指针来代�ѝ���ؓ什么可以这样那�Q�因为B接口�z����自A接口�Q�那么B接口的前几个函数必然���是A接口的函��C���Q�自然B接口的地址其实和A接口的地址是一��L��了�?br />　　IObjectWithSite �?IE 用来�Ҏ��件进行管理和通讯用的一个接口。必��要实现�q�个接口�?个函敎ͼ�SetSite() �?GetSite()。当 IE 加蝲 band 对象和释�?band 对象的时候，都要调用 SetSite()函数�Q�那么在�q�个函数里正好是写初始化和释放操作代码的地方�Q?STDMETHODIMP Cxxx::SetSite(IUnknown *pUnkSite)
{
	if( NULL == pUnkSite )	// 释放 band 的时�?
	{
		// 如果加蝲的时候，保存了一些接�?
		// 那么现在�Q�释攑֮�
	}
	else	// 加蝲 band 的时�?
	{
		m_hwndParent = NULL;	// 装蝲 band 的父�H�口(���是带有标题的那个框架窗�?

		// �q�个�H�口的句柄，是调�?IUnknown::QueryInterface() 得到 IOleWindow
		// 然后调用 IOleWindow::GetWindow() 而获得的�?
		CComQIPtr< IOleWindow, &IID_IOleWindow > spOleWindow(pUnkSite);
		if( spOleWindow )	spOleWindow->GetWindow(&m_hwndParent);
		if( !m_hwndParent )	return E_FAIL;
		
		// 现在�Q�正好是建立子窗口的时机�?
		// 注意�Q�子�H�口建立的时候，不要使用 WS_VISIBLE 属�?
		... ...
		// 在例子程序中�Q�用 CAxWindow 实现了一个能包容ActiveX的容器窗�?垂直���览器栏)
		// 在例子程序中�Q�用 WIN API 函数 CreateWindow 实现了标准窗�?水��^���览器栏、工��h��)
		// 在例子程序中�Q�用 CWindowImpl 实现了一个包容窗�?桌面工具�?

		/*********************************************************/
		   以下部分�Q�根�?band 对象�Ҏ��的功能，是可以选择实现�?
		**********************************************************/		
		// 如果子窗口实��C��用户输入�Q�那么必���d���?IInputObject 接口�Q?
		// 而该接口是被 IE �?IInputObjectSite 调用的，因此在你的对�?
		// 中，应该保存 IInputObjectSite 的接口指针�?
		// 在类的头文�g中，定义�Q?
		// CComQIPtr< IInputObjectSite, &IID_IInputObjectSite > m_spSite;

		m_spSite = pUnkSite;	// 保存 IInputObjectSite 指针
		if( !m_spSite )		return E_FAIL;

		// 你需要控�?IE 的主框架吗？
		// 那么在类的头文�g中，定义�Q?
		// CComQIPtr< IWebBrowser2, &IID_IWebBrowser2 > m_spFrameWB;
		// 然后�Q�先取得 IServiceProvider,再取�?IWebBrowser2

		CComQIPtr < IServiceProvider, &IID_IServiceProvider> spSP(pUnkSite);
		if( !spSP )	return E_FAIL;
		spSP->QueryService( SID_SWebBrowserApp, &m_spFrameWB );
		if( !m_spFrameWB)	return E_FAIL;

		// 如果你取得了 IE ��L��架的 IWebBrowser2 指针
		// 那么�Q�当它发生了什么事情，你难道不想知道吗�Q?
		// 定义�Q�CComPtr m_spCP;

		CComQIPtr< IConnectionPointContainer,
			&IID_IConnectionPointContainer> spCPC( m_spFrameWB );
		if( spCPC )
		{
			spCPC->FindConnectionPoint( DIID_DWebBrowserEvents2, &m_spCP );
			if( m_spCP )
			{
				m_spCP->Advise( reinterpret_cast< IDispatch * >( this ), &m_dwCookie );
			}
		}

		// 咳~~~ 不说了，看源码去吧。这里能�q�的事情太多�?.. ...
	}
	return S_OK;
}		
IDeskBand 是一个特�D�的 band 对象接口�Q�有一个方法函敎ͼ�GetBarInfo()�Q?br />IDockingWindow �?IDeskBank 的基�c�，�?个方法函敎ͼ�ShowDW()、CloseDW()、ResizeBorderDW()�Q?br />IOleWindow 又是 IDockingWindow 的基�c�，�?个方法函敎ͼ�GetWindow()、ContextSensitiveHelp()�Q?

　　首先声明 IDeskBand ,然后要实�?IDeskBand 接口的共6个函敎ͼ��q�些函数比较���单，不同�c�d���?band 对象�Q�其实现�Ҏ��也都基本一��_�� class ATL_NO_VTABLE Cxxx : 
	......
	public IDeskBand,
	......
{
......
BEGIN_COM_MAP(Cxxx)
	......
	COM_INTERFACE_ENTRY_IID(IID_IDeskBand, IDeskBand)
	......
END_COM_MAP()



// IOleWindow
STDMETHODIMP Cxxx::GetWindow(HWND * phwnd)
{	// 取得 band 对象的窗口句�?
	// m_hWnd 是徏立窗口时候保存的
	*phwnd = m_hWnd;	
	return S_OK;
}

STDMETHODIMP Cxxx::ContextSensitiveHelp(BOOL fEnterMode)
{	// 上下文帮助，参�?IContextMenu 接口
	return E_NOTIMPL;
}

// IDockingWindow
STDMETHODIMP CVerticalBar::ShowDW(BOOL bShow)
{	// 昄���或隐�?band �H�口
	if( m_hWnd )
		::ShowWindow( m_hWnd, bShow ? SW_SHOW : SW_HIDE);

	return S_OK;
}

STDMETHODIMP CVerticalBar::CloseDW(DWORD dwReserved)
{	// 销�?band �H�口
	if( ::IsWindow( m_hWnd ) )
		::DestroyWindow( m_hWnd );

	m_hWnd = NULL;

    return S_OK;
}

STDMETHODIMP CVerticalBar::ResizeBorderDW(LPCRECT prcBorder, IUnknown* punkToolbarSite, BOOL fReserved)
{	// 当框架窗口的�Ҏ��大小改变�?
	return E_NOTIMPL;
}

// IDeskBand
STDMETHODIMP CVerticalBar::GetBandInfo(DWORD dwBandID, DWORD dwViewMode,  DESKBANDINFO* pdbi)
{	
         // 取得 band 的基本信息，你需要填�?pdbi 参数作�ؓ�q�回
	if( NULL == pdbi )		return E_INVALIDARG;

	// 如果���来需要调�?IOleCommandTarget::Exec() 则需要保存这2个参�?
	m_dwBandID = dwBandID;
	m_dwViewMode = dwViewMode;

	if(pdbi->dwMask & DBIM_MINSIZE)
	{	// 最���尺�?
		pdbi->ptMinSize.x = 10;
		pdbi->ptMinSize.y = 10;
	}

	if(pdbi->dwMask & DBIM_MAXSIZE)
	{	// 最大尺�?(-1 表示 4G)
		pdbi->ptMaxSize.x = -1;
		pdbi->ptMaxSize.y = -1;
	}

	if(pdbi->dwMask & DBIM_INTEGRAL)
	{
		pdbi->ptIntegral.x = 1;
		pdbi->ptIntegral.y = 1;
	}

	if(pdbi->dwMask & DBIM_ACTUAL)
	{
		pdbi->ptActual.x = 0;
		pdbi->ptActual.y = 0;
	}

	if(pdbi->dwMask & DBIM_TITLE)
	{	// �H�口标题
		wcscpy(pdbi->wszTitle,L"�H�口标题");
	}

	if(pdbi->dwMask & DBIM_MODEFLAGS)
	{
		pdbi->dwModeFlags = DBIMF_VARIABLEHEIGHT;
	}

	if(pdbi->dwMask & DBIM_BKCOLOR)
	{	// 如果使用默认的背景色�Q�则�U�除该标�?
		pdbi->dwMask &= ~DBIM_BKCOLOR;
	}

	return S_OK;
}		
3.3　选择实现�?COM 接口
　　有两个接口不是必���d��现的�Q�但也许很有用：IInputObject �?IContextMenu。如�?band 对象需要接收用��L��输入�Q�那么必���d���?IInputObject 接口。IE 实现�?IInputObjectSite 接口�Q�当容器中有多个输入�H�口�Ӟ��它调�?IInputObject 接口�Ҏ��去负责管理用��L��输入焦点�?br />在浏览器栏中需要实�?个函敎ͼ�UIActivateIO()、HasFocusIO()、TranslateAcceleratorIO()�?br />当浏览器栏激�z�L��失去�z�L��的时候，IE 调用 UIActivateIO 函数�Q�当�Ȁ�zȝ��时候，���览器栏一般调�?SetFocus 去设�|�它自己�H�口的焦炏V��当 IE 需要判断哪个窗口有焦点的时候，它调�?HasFocusIO 。当���览器栏的窗口或其子�H�口有输入焦�Ҏ���Q�则应返�?S_OK�Q�否则返�?S_FALSE。TranslateAcceleratorIO 允许对象处理加速键�Q�例子程序中没有实现�Q�所以直接返�?S_FALSE�?STDMETHODIMP CExplorerBar::UIActivateIO(BOOL fActivate, LPMSG pMsg)
{
    if(fActivate)
        SetFocus(m_hWnd);

    return S_OK;
}

STDMETHODIMP CExplorerBar::HasFocusIO(void)
{
    if(m_bFocus)
        return S_OK;

    return S_FALSE;
}

STDMETHODIMP CExplorerBar::TranslateAcceleratorIO(LPMSG pMsg)
{
    return S_FALSE;
}      　　Band 对象能够通过包容器的 IOleCommandTarget::Exec() 调用执行命��o。�?IOleCommandTarget 接口指针�Q�则可以通过调用包容器的 IInputOjbectSite::QueryInterface�Q�IID_IOleCommandTarget,...�Q?函数得到。CGID_DeskBand 是命令组�Q�当一�?band 对象�?GetBandInfo 被调用的时候，包容器通过 dwBandID 参数指定一�?ID �l?band 对象�Q�对象要保存住这个ID�Q�以便调�?IOleCommandTarget::Exec()的时候��用。ID 的命令有�Q?
DBID_BANDINFOCHANGED
Band 的信息变化。设�|�参�?pvaIn �?band ID�Q?�?ID ���是最�q�一�ơ调�?GetBandInfo 所得到的��|��容器会调�?band 对象�?GetBandInfo 函数来更新请求信息�?
DBID_MAXIMIZEBAND 
最大化 band。设�|�参�?pvaIn �?band ID�Q�该 ID ���是最�q�一�ơ调�??GetBandInfo ?所得到的倹{�?
DBID_SHOWONLY 
打开或关闭容器中其它�?bands�?讄���参数 pvaIn 为VT_UNKNOWN �c�d���Q�它可以是如下的��|��
　 
�?/font> 描述
pUnk band 对象�?IUnknown 指针�Q�其它的桌面 bands ���被隐藏
0 隐藏所有的桌面 bands
1 昄���所有的桌面 bands

DBID_PUSHCHEVRON
在菜单项左边昄���“v”的选择标志。容器发送一�?RB_PUSHCHEVRON 消息�Q�当 band 对象接收到通知消息 RBN_CHEVRONPUSHED 提示它显�C�Z���?v"的标志。设�|?IOleCommandTarget::Exec 函数�?nCmdExecOpt 参数�?band ID�Q�该 ID 是最�q�一�ơ调�?GetBandInfo ?所得到的��|��讄��� IOleCommandTarget::Exec 函数�?pvaIn 参数�?VT_I4 �c�d���Q�这是应用程序定义的一个��|��它通过通知消息 RBN_CHEVRONPUSHED 中lAppValue 回传�l?band 对象�?
3.4　Band 对象注册
　　Band 对象必须注册��Z���?OLE �q�程内的服务器，�q�且支持 apartment �U�程公寓。注册表中默认键的值是表示菜单的文字。对于浏览器栏，它加�?IE 菜单的“查看\���览器栏”中�Q�对于工��h�� band �Q�它加到 IE 菜单的“查看\工具栏”中�Q�对于桌�?band�Q?它加到系�l��Q务栏的快捯���单中。在菜单资源中，可以使用�?amp;”指明加速键�?br />
通常�Q�一个基本的 band 对象的注册表��目是：

HKEY_CLASSES_ROOT 
CLSID 
{你的 band 对象�?CLSID}
　　(Default) = 菜单的文�?
　　InProcServer32 
　　　(Default) = DLL 的全路径文�g�?
　　　ThreadingModel= Apartment

工具�?bands �q�必���L��它们�?CLSID 注册�?IE 的注册表中�?br />
�?HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Toolbar 下给�?CLSID 作�ؓ键名�Q�而其键值是被忽略的�?br />
HKEY_LOCAL_MACHINE 
Software 
Microsoft 
Internet Explorer 
Toolbar 
　　{你的 band 对象�?CLSID}

　　�q�有几个可选的注册表项�?例子�E�序�q�不是这样实现的)。比如，你想让浏览器栏显�C?HTML 的话�Q�必��要如下讄���注册表： 

HKEY_CLASSES_ROOT 
CLSID 
{你的 Band 对象�?CLSID} 
Instance 
CLSID 
　　(Default) = {4D5C8C2A-D075-11D0-B416-00C04FB90376}

同时�Q�如果要指定一个本地的 HTML 文�g�Q�那么要如下讄����Q?

HKEY_CLASSES_ROOT 
CLSID 
{你的 Band 对象�?CLSID}
Instance 
InitPropertyBag 
　　Url

　　另外�Q�还可以指定���览器栏的宽和高�Q�当�Ӟ��它是依赖于这个栏是纵向还是横向的。其实这个项目无所谓，因�ؓ当用戯���整了���览器栏的大���后�Q�会自动保存在注册表中的�?br />
HKEY_CURRENT_USER 
Software 
Microsoft 
Internet Explorer 
Explorer Bars 
{你的 Band 对象�?CLSID} 
　　BarSize

　　BarSize 键的�c�d��必须�?REG_BINARY �c�d���Q�它�?个字节。左起前4个字节，是用16�q�制表示的像素宽度或高度�Q�后4个字节保留，你应该设�|��ؓ0。下面是一个可以在���览器栏上显�C?HTML 文�g的全部注册表��目的例子，默认宽度�?91�Q?x123�Q�个像素点： 

HKEY_CLASSES_ROOT 
CLSID 
{你的 Band 对象�?CLSID} 
　(Default) = 菜单文字 
　InProcServer32 
　　(Default) = DLL 的全路径文�g�?
　　ThreadingModel= Apartment
Instance 
CLSID 
　　(Default) = {4D5C8C2A-D075-11D0-B416-00C04FB90376}
InitPropertyBag
　　Url= 你的 HTML 文�g�?br />
HKEY_CURRENT_USER 
Software 
Microsoft 
Internet Explorer 
Explorer Bars 
{你的 Band 对象�?CLSID} 
　　BarSize= 23 01 00 00 00 00 00 00

　　对于注册表的讄����Q�用 ATL 实现其实是异常简单的。打开工程�?xxx.rgs 文�g�Q��ƈ手工�~�辑一下就可以了�?下面�q�个文�g源码�Q�是例子�E�序�?IE 工具栏的注册表样式，HKLM 是需要手工添加的�Q�因为它不��用组件类型方式注册。而对于其它类型的 band 对象只要在类声明中添加： 
BEGIN_CATEGORY_MAP(Cxxx)			// 向注册表中注�?COM �c�d��
	IMPLEMENTED_CATEGORY(CATID_InfoBand)	// 垂直样式的浏览器�?
END_CATEGORY_MAP()		IE 工具栏类�?band 对象的�?rgs”文�?pre>HKCR	// �q�个��目�?ATL 帮你生成的，你只要手工修改“菜单上的文字”就可以�?
{
	Bands.ToolBar.1 = s ''ToolBar Class''
	{
		CLSID = s ''{ 你的 CLSID }''
	}
	Bands.ToolBar = s ''ToolBar Class''
	{
		CLSID = s ''{ 你的 CLSID }''
		CurVer = s ''Bands.ToolBar.1''
	}
	NoRemove CLSID
	{
		ForceRemove { 你的 CLSID } = s ''用在菜单上的文字(&T)''
		{
			ProgID = s ''Bands.ToolBar.1''
			VersionIndependentProgID = s ''Bands.ToolBar''
			ForceRemove ''Programmable''
			InprocServer32 = s ''%MODULE%''
			{
				val ThreadingModel = s ''Apartment''
			}
			''TypeLib'' = s ''{xxxx-xxxx-xxxxxxxxxxxxxxx}''
		}
	}
}

HKLM	// �q�个��目是手工添加的IE工具栏所�Ҏ���?
{
	Software
	{
		Microsoft
		{
			''Internet Explorer''
			{
				NoRemove Toolbar
				{
					ForceRemove val { 你的 CLSID } = s ''随便�l�个说明性文字串''
				}
			}
		}
	}
}		四�?ATL 实现
　　下蝲代码�?VC 6.0 工程)�Q�请参照前面的说明仔�l�阅读，代码中也有一些关键点的注释。如果想�q�行�Q�则可以�?regsvr32.exe �q�行注册�Q�然后打开 IE ���览器或资源���览器就可以看到效果了。如果想自己实践一下，可以按照如下的步骤构造工�E�：

4.1　建立一�?ATL DLL 工程
4.2　��d�� New ATL Object...�Q�选择 Internet Explorer Object�Q�选这个类型的目的是让向导�l�我们添�?IObjectWithSite 的支持。如果你使用的是 .net 环境�Q�则不要忘记选择支持�q�个接口�?br />


4.3　输入对象名称�Q�比如我惛_��立一个垂直的���览器栏�Q�不妨叫�?VerBar



4.4　�U�程模型必须选择 Apartment�Q�接口类型的选择无所谓，看你想不��x���?IDispatch 接口功能了。在例子�E�序中的垂直���览器栏中，�׃����x�����单的操纵 IE 和从 IE 中接受事�Ӟ���q�接点）�Q�选择 Dual 是必要的。聚合选项�Q�你只要别选择 Only ���可以了�?br />


4.5　展现你无�I�L��智慧�Q�开始输入程序吧。如果是 Debug 方式�~�译�Q�可能会出现一个连接错误，报告找不到_AtlAxCreateControl�Q�那么你要在菜单 Project\Settings...\Link 中增加对 Atl.lib 的连接。或者���?#pragma comment ( lib, "atl" )加入�q�接库�?br />4.6　如果惌���试代码，在菜�?Project\Settings...\Debug 中输�?IE 的�\径名�U�ͼ�比如�Q�“C:\Program Files\Internet Explorer\IEXPLORE.EXE”，然后���可以跟�t�断点调试了�?�~�译和调试桌面工��h���?band 对象�Q�是非常�ȝ��的，因�ؓ计算机启动时自动�q�行 Shell�Q��?Shell ��׃��加蝲�z�d��的桌面对象�?br />
五、结束语
好了�Q�到�q�里�Q�就到这里了。祝大家学习快乐^_^

jay 2007-03-11 14:35 发表评论

Band 样式	�l��g�c�d��	CATID
垂直的浏览器�?/td>	CATID_InfoBand	00021493-0000-0000-C000-000000000046
水��^的浏览器�?/td>	CATID_CommBand	00021494-0000-0000-C000-000000000046
桌面的工��h��	CATID_DeskBand	00021492-0000-0000-C000-000000000046

�?/font>	描述
pUnk	band 对象�?IUnknown 指针�Q�其它的桌面 bands ��被隐藏
0	隐藏所有的桌面 bands
1	昄��所有的桌面 bands

大小�Q�像素）	�C�Z��
20x20
16x16

亚洲图片在线观看,亚洲一区二区高清视频,欧美69视频

Windows区对�?Bands)的创��Z��定制

ATL 实现定制�?IE ���览器栏、工��h��和桌面工��h��

ATL 实现定制�?IE ��览器栏、工��h��和桌面工��h��