Windows外壳扩展编程之添加右键菜单

Windows外壳扩展编程  www.applevb.com
    在Windows下的一些软件提供了这样的功能：当安装了这些软件之后，当在Windows的Explore中鼠标右键单击文件或者文件夹后，在弹出菜单中就会多出与该软件操作相关的菜单项，点击该项就会激活相应的程序对用户选中的文件进行相应的操作。例如安装了Winzip之后，当用户选中一个文件夹后单击右键，在弹出菜单中就会多出一个Add To Zip和一个 Add To xxx.zip的选项，其中xxx为选中的文件夹的名称。只要单击上面的两个菜单项中的一个，就可以方便的压缩目录了。这样的功能称为Windows外壳扩展(Shell Extensions)
　　外壳扩展概述

　　下面是与外壳扩展相关的三个重要术语：
　　(1)文件对象(File Object)
　　   文件对象是外壳中的一项，大家最熟识的文件对象是文件和目录，此外，打印机、控制面板程序、共享网
       络等也都是文件对象。
　　(2)文件类(File Class)
       文件类是具有某种共同特性的文件对象的集合，比如，扩展名相同的文件属于同一文件类。
　　(3)处理程序(Handler)
　　   处理程序是具体实现某个外壳扩展的代码。

　　Windows支持七种类型的外壳扩展（称为Handler），它们相应的作用简述如下：
　　(1)Context menu handlers向特定类型的文件对象增添上下文相关菜单；
　　(2)Drag-and-drop handlers用来支持当用户对某种类型的文件对象进行拖放操作时的OLE数据传输；
　　(3)Icon handlers用来向某个文件对象提供一个特有的图标，也可以给某一类文件对象指定图标；
　　(4)Property sheet handlers给文件对象增添属性页，属性页可以为同一类文件对象所共有，也可以给一个
       文件对象指定特有的属性页；
　　(5)Copy-hook handlers在文件夹对象或者打印机对象被拷贝、移动、删除和重命名时，就会被系统调用，
       通过为Windows增加Copy-hook handlers，可以允许或者禁止其中的某些操作；
　　(6)Drop target handlers在一个对象被拖放到另一个对象上时，就会被系统被调用；
　　(7)Data object handlers在文件被拖放、拷贝或者粘贴时，就会被系统被调用。

　　Windows的所有外壳扩展都是基于COM(Component Object Model) 组件模型的，外壳是通过接口(Interface)来访问对象的。外壳扩展被设计成32位的进程中服务器程序，并且都是以动态链接库的形式为操作系统提供服务的。因此，如果要对Windows的用户界面进行扩充的话，则具备写COM对象的一些知识是十分必要的。

　　写好外壳扩展程序后，必须将它们注册才能生效。所有的外壳扩展都必须在Windows注册表的HKEY_CLASSES_ROOTCLSID键之下进行注册。在该键下面可以找到许多名字像{0000002F-0000-0000-C000-000000000046}的键，这类键就是全局唯一类标识符。每一个外壳扩展都必须有一个全局唯一类标识符，Windows正是通过此唯一类标识符来找到外壳扩展处理程序的。在类标识符之下的InProcServer32子键下记录着外壳扩展动态链接库在系统中的位置。与某种文件类型关联的外壳扩展注册在相应类型的shellex主键下。如果所处的Windows操作系统为Windows NT，则外壳扩展还必须在注册表中的HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionShellExtensionsApproved主键下登记。

　　注册表HKEY_CLASSES_ROOT主键下有几个特殊的子键，如*、Folder、Drive以及Printer。如果把外壳扩展注册在*子键下，那么这个外壳扩展将对Windows中所有类型的文件有效；如果把外壳扩展注册在Folder子键下，则对所有目录有效。

    上面提到的在Windows Explore中在鼠标右键菜单中添加菜单项（我们成为上下文相关菜单）的操作属于外壳扩展的第一类，即Context menu handlers向特定类型的文件对象增添上下文相关菜单。要动态地在上下文相关菜单中增添菜单项，可以通过写Context Menu Handler来实现。
　　编写Context Menu Handler必须实现IShellExtInit和IContextMenu两个接口。除了IUnknown接口所定义的函数之外，Context Menu Handler还需要用到QueryContextMenu、InvokeCommand和GetCommandString这三个非常重要的成员函数。

　　(1)QueryContextMenu函数：每当系统要显示一个文件对象的上下文相关菜单时，它首先要调用该函数。为了在上下文相关菜单中添加菜单
 项，我们在该函数中调用InsertMenu函数。

　　(2)InvokeCommand函数：当用户选定了某个Context Menu Handler登记过的菜单项后，该函数将会被调用，系统将会传给该函数一个指向
 LPCMINVOKECOMMANDINFO结构的指针。在该函数中要执行与所选菜单项相对应的操作。

　　(3)GetCommandString函数：当鼠标指针移到一个上下文相关菜单项上时，在当前窗口的状态条上将会出现与该菜单项相关的帮助信息，此
 信息就是系统通过调用该函数获取的。

    下面我通过具体的例程来说明编写一个比较完整的上下文菜单程序，这个程序是一个文件操作程序，当安装并注册了外壳扩展的服务器动态连接库之后，当选择一个或者多个文件并单击鼠标右键后，在右键菜单中就会多出一个“执行文件操作”的上下文菜单，点击菜单就会弹出相应的程序执行文件操作。
    在整个程序的编写中，外壳扩展的服务器动态连接库是有Delphi4.0编写的，而动态连接库调用的文件操作程序是由VB6编写的。下面首先介绍服务器动态连接库的编写：
    服务器动态连接库的工程文件内容如下：

library contextmenu;
    uses
ComServ,
  ContextMenuHandler in Unit2.pas;
//   contmenu_TLB in contmenu_TLB.pas;

exports
   DllGetClassObject,
   DllCanUnloadNow,
   DllRegisterServer,
   DllUnregisterServer;

{$R *.TLB}

{$R *.RES}

begin

end.

    将工程文件保存为contextmenu.dpr。
    服务器动态连接库的单位文件内容如下：   

unit ContextMenuHandler;

interface
   uses Windows,ActiveX,ComObj,ShlObj,Classes;

type
   TContextMenu = class(TComObject,IShellExtInit,IContextMenu)
   private
      FFileName: array[0..MAX_PATH] of Char;
   protected
      function IShellExtInit.Initialize = SEIInitialize; // Avoid compiler warning
      function SEIInitialize(pidlFolder: PItemIDList; lpdobj: IDataObject;
               hKeyProgID: HKEY): HResult; stdcall;
      function QueryContextMenu(Menu: HMENU; indexMenu, idCmdFirst, idCmdLast,
               uFlags: UINT): HResult; stdcall;
      function InvokeCommand(var lpici: TCMInvokeCommandInfo): HResult; stdcall;
      function GetCommandString(idCmd, uType: UINT; pwReserved: PUINT;
               pszName: LPSTR; cchMax: UINT): HResult; stdcall;
end;

const

   Class_ContextMenu: TGUID = {19741013-C829-11D1-8233-0020AF3E97A9};

{全局唯一标识符(GUID)是一个16字节（128为）的值，它唯一地标识一个接口(interface)}
var
   FileList:TStringList;
   Buffer:array[1..1024]of char;

implementation

uses ComServ, SysUtils, ShellApi, Registry,UnitForm;

function TContextMenu.SEIInitialize(pidlFolder: PItemIDList; lpdobj: IDataObject;
   hKeyProgID: HKEY): HResult;
var
   StgMedium: TStgMedium;
   FormatEtc: TFormatEtc;
   FileNumber,i:Integer;
begin
   file://如果lpdobj等于Nil，则本调用失败
   if (lpdobj = nil) then begin
      Result := E_INVALIDARG;
      Exit;
   end;

   file://首先初始化并清空FileList以添加文件
   FileList:=TStringList.Create;
   FileList.Clear;
   file://初始化剪贴版格式文件
   with FormatEtc do begin
      cfFormat := CF_HDROP;
      ptd := nil;
      dwAspect := DVASPECT_CONTENT;
      lindex := -1;
      tymed := TYMED_HGLOBAL;
   end;
   Result := lpdobj.GetData(FormatEtc,