利用DELPHI编写WINDOWS外壳

页面导航:首页 > 软件编程 > Delphi > 利用DELPHI编写WINDOWS外壳

利用DELPHI编写WINDOWS外壳

来源: 作者: 时间:2016-01-21 09:33 【

利用DELPHI编写WINDOWS外壳 对于操作系统原理比较了解的朋友都会知道,一个完备的操作系统都会提供一个外壳(Shell),以方便普通用户使用操作系统提供的各种功能。Windows(在这里指的
 

利用DELPHI编写WINDOWS外壳


   对于操作系统原理比较了解的朋友都会知道,一个完备的操作系统都会提供一个外壳(Shell),以方便普通用户使用操作系统提供的各种功能。Windows(在这里指的是Windows 95Windows NT4.0以上版本的操作系统)的外壳不但提供了方便美观的GUI图形界面,而且还提供了强大的外壳扩展功能,大家可能在很多软件中看到这些外壳扩展了。例如:如果你的系统中安装了Winzip的话,当你在Windows Explore中鼠标右键点击文件夹或者文件时,弹出菜单中就会出现Winzip的压缩菜单。
  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}的键,这类键就是全局唯一类标识符(Guid)。每一个外壳扩展都必须有一个全局唯一类标识符,Windows正是通过此唯一类标识符来找到外壳扩展处理程序的。在类标识符之下的InProcServer32子键下记录着外壳扩展动态链接库在系统中的位置。与某种文件类型关联的外壳扩展注册在相应类型的shellex主键下。如果所处的Windows操作系统为Windows NT,则外壳扩展还必须在注册表中的HKEY-LOCAL-MACHINESoftwareMicrosoftWindowsCurrentVersionShellExtensionsApproved主键下登记。
  编译完外壳扩展的DLL程序后就可以用Windows本身提供的regsvr32.exe来注册该DLL服务器程序了。如果使用Delphi,也可以在Run菜单中选择Register ActiveX Server来注册。
  下面首先介绍一个比较常用的外壳扩展应用:上下文相关菜单,在Windows中,用鼠标右键单击文件或者文件夹时弹出的那个菜单便称为上下文相关菜单。要动态地在上下文相关菜单中增添菜单项,可以通过写Context Menu Handler来实现。比如大家所熟悉的WinZip和UltraEdit等软件都是通过编写Context Menu Handler来动态地向菜单中增添菜单项的。本文要实现的Context Menu Handler将在任意类型文件对象的上下文相关菜单中添加一个文件操作菜单项,当点击该项后,接口程序就会弹出一个文件操作窗口,执行文件拷贝、移动等操作。
  编写Context Menu Handler必须实现IShellExtInit、IContextMenu和TComObjectFactory三个接口。IShellExtInit实现接口的初始化,IContextMenu接口对象实现上下文相关菜单,IComObjectFactory接口实现对象的创建。
  下面是具体的程序实现。首先在Delphi中点击菜单的File|New项,在New Item窗口中选择DLL建立一个DLL工程文件。然后点击菜单的File|New项,在New Item窗口中选择Unit建立一个Unit文件,点击点击菜单的File|New项,在New Item窗口中选择Form建立一个新的窗口。将将工程文件保存为Contextmenu.dpr,将Unit1保存为Contextmenuhandle.pas,将Form保存为OpWindow.pas。
  Contextmenu.dpr的程序清单如下:
  library contextmenu;
  uses
  ComServ,
  contextmenuhandle in contextmenuhandle.pas,
  opwindow in opwindow.pas {Form2};
  exports
  DllGetClassObject,
  DllCanUnloadNow,
  DllRegisterServer,
  DllUnregisterServer;
  {$R *.TLB}
  {$R *.RES}
  begin
  end.
  Contextmenuhandle的程序清单如下:
  unit ContextMenuHandle;
  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-0020AF3E97A0};
  {全局唯一标识符(GUID)是一个16字节(128为)的值,它唯一地标识一个接口(interface)}
  var
  FileList:TStringList;
  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
  //如果lpdobj等于Nil,则本调用失败
  if (lpdobj = nil) then begin
  Result := E_INVALIDARG;
  Exit;
  end;
  //首先初始化并清空FileList以添加文件
  FileList:=TStringList.Create;
   FileList.Clear;
  //初始化剪贴版格式文件
  with FormatEtc do begin
  cfFormat := CF_HDROP;
  ptd := nil;
  dwAspect := DVASPECT_CONTENT;
  lindex := -1;
  tymed := TYMED_HGLOBAL;
  end;
  Result := lpdobj.GetData(FormatEtc, StgMedium);
  if Failed(Result) then Exit;
  //首先查询用户选中的文件的个数
  FileNumber := DragQueryFile(StgMedium.hGlobal,$FFFFFFFF,nil,0);
  //循环读取,将所有用户选中的文件保存到FileList中
  for i:=0 to FileNumber-1 do begin
  DragQueryFile(StgMedium.hGlobal, i, FFileName, SizeOf(FFileName));
  FileList.Add(FFileName);
  Result := NOERROR;
  end;
  ReleaseStgMedium(StgMedium);
  end;
  function TContextMenu.QueryContextMenu(Menu: HMENU; indexMenu, idCmdFirst,
  idCmdLast, uFlags: UINT): HResult;
  begin
  Result := 0;
  if ((uFlags and $0000000F) = CMF-NORMAL) or
  ((uFlags and CMF_EXPLORE) <> 0) then begin
  // 往Context Menu中加入一个菜单项 ,菜单项的标题为察看位图文件
  InsertMenu(Menu, indexMenu, MF_STRING or MF_BYPOSITION, idCmdFirst,
  PChar(文件操作));
  // 返回增加菜单项的个数
  Result := 1;
  end;
  end;
  function TContextMenu.InvokeCommand(var lpici: TCMInvokeCommandInfo): HResult;
  var
  frmOP:TForm1;
  begin
  // 首先确定该过程是被系统而不是被一个程序所调用
  if (HiWord(Integer(lpici.lpVerb)) <> 0) then
  begin
  Result := E_FAIL;
  Exit;
  end;
  // 确定传递的参数的有效性
  if (LoWord(lpici.lpVerb) <> 0) then begin
  Result := E_INVALIDARG;
  Exit;
  end;
  //建立文件操作窗口
  frmOP:=TForm1.Create(nil);
  //将所有的文件列表添加到文件操作窗口的列表中
  frmOP.ListBox1.Items := FileList;
  Result := NOERROR;
  end;
  function TContextMenu.GetCommandString(idCmd, uType: UINT; pwReserved: PUINT;
  pszName: LPSTR; cchMax: UINT): HRESULT;
  begin
   if (idCmd = 0) then begin
   if (uType = GCS_HELPTEXT) then
  {返回该菜单项的帮助信息,此帮助信息将在用户把鼠标
  移动到该菜单项时出现在状态条上。}
  StrCopy(pszName, PChar(点击该菜单项将执行文件操作));
  Result := NOERROR;
  end
  else
  Result := E_INVALIDARG;
  end;
  type
  TContext Menu Factory =class(TCom Object Factory)
  public
  procedure UpdateRegistry(Register: Boolean);

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<