Question

在Windows资源管理器中，右键单击一个文件，显示一个上下文菜单，其中包含内置项，如“发送到...”和/或第三方操作，如“带Winzip的zip文件”。我的问题是：

如何获取特定文件的可用菜单项的完整列表？
对于每个菜单项，如何获取标题？
如何为特定磁盘文件调用特定菜单项操作？

提前谢谢！

[编辑]：虽然其他信息绝对有用，但Delphi解决方案将非常受欢迎！

Answer 1

获取Shell上下文菜单的关键是使用IContextMenu接口。

查看这篇精彩文章Shell context menu support了解更多详情。

<强>更新

对于delphi示例，您可以看到JEDI JCL中的JclShell单元（检查DisplayContextMenu函数）和Delphi的samples文件夹中包含的ShellCtrls单元。

Answer 2

简短回答

尝试JAM Software的ShellBrowser Components。它们有一个组件，可以让您显示资源管理器的上下文菜单，并在TPopupMenu中混合使用您自己的命令。

答案很长

获取资源管理器菜单，查询其所有属性，并在您自己的菜单中托管它们是可能的，但您应该很乐意阅读/编写低级Win32代码，并且C的工作知识将有所帮助。你还需要注意一些陷阱（如下所述）。我强烈建议阅读Raymond Chen的How to host an IContextMenu系列文章，了解很多技术细节。

更简单的方法是查询IContextMenu接口，然后是HMENU，然后使用TrackPopupMenu让Windows显示菜单，然后在最后调用InvokeCommand。

以下部分代码未经测试或已根据我们的使用进行修改，因此请自行承担风险。

以下是基本文件夹中一组文件的IContextMenu的获取方式：

function GetExplorerMenu(AHandle: HWND; const APath: string;
  AFilenames: TStrings): IContextMenu;
var
  Desktop, Parent: IShellFolder;
  FolderPidl: PItemIDList;
  FilePidls: array of PItemIDList;
  PathW: WideString;
  i: Integer;
begin
  // Retrieve the Desktop's IShellFolder interface
  OleCheck(SHGetDesktopFolder(Desktop));
  // Retrieve the parent folder's PItemIDList and then it's IShellFolder interface
  PathW := WideString(IncludeTrailingPathDelimiter(APath));
  OleCheck(Desktop.ParseDisplayName(AHandle, nil, PWideChar(PathW),
    Cardinal(nil^), FolderPidl, Cardinal(nil^)));
  try
    OleCheck(Desktop.BindToObject(FolderPidl, nil, IID_IShellFolder, Parent));
  finally
    SHFree(FolderPidl);
  end;
  // Retrieve PIDLs for each file, relative the the parent folder
  SetLength(FilePidls, AFilenames.Count);
  try
    FillChar(FilePidls[0], SizeOf(PItemIDList) * AFilenames.Count, 0);
    for i := 0 to AFilenames.Count-1 do begin
      PathW := WideString(AFilenames[i]);
      OleCheck(Parent.ParseDisplayName(AHandle, nil, PWideChar(PathW),
        Cardinal(nil^), FilePidls[i], Cardinal(nil^)));
    end;
    // Get the context menu for the files from the parent's IShellFolder
    OleCheck(Parent.GetUIObjectOf(AHandle, AFilenames.Count, FilePidls[0],
      IID_IContextMenu, nil, Result));
  finally
    for i := 0 to Length(FilePidls) - 1 do
      SHFree(FilePidls[i]);
  end;
end;

要获取实际的菜单项，您需要致电IContextMenu.QueryContextMenu。您可以使用DestroyMenu销毁返回的HMENU。

function GetExplorerHMenu(const AContextMenu: IContextMenu): HMENU;
const
  MENUID_FIRST = 1;
  MENUID_LAST = $7FFF;
var
  OldMode: UINT;
begin
  OldMode := SetErrorMode(SEM_FAILCRITICALERRORS or SEM_NOOPENFILEERRORBOX);
  try
    Result := CreatePopupMenu;
    AContextMenu.QueryContextMenu(Result, 0, MENUID_FIRST, MENUID_LAST, CMF_NORMAL);
  finally
    SetErrorMode(OldMode);
  end;
end;

以下是您实际调用用户从菜单中选择的命令的方法：

procedure InvokeCommand(const AContextMenu: IContextMenu; AVerb: PChar);
const
  CMIC_MASK_SHIFT_DOWN   = $10000000;
  CMIC_MASK_CONTROL_DOWN = $20000000;
var
  CI: TCMInvokeCommandInfoEx;
begin
  FillChar(CI, SizeOf(TCMInvokeCommandInfoEx), 0);
  CI.cbSize := SizeOf(TCMInvokeCommandInfo);
  CI.hwnd := GetOwnerHandle(Owner);
  CI.lpVerb := AVerb;
  CI.nShow := SW_SHOWNORMAL;
  // Ignore return value for InvokeCommand.  Some shell extensions return errors
  // from it even if the command worked.
  try
    AContextMenu.InvokeCommand(PCMInvokeCommandInfo(@CI)^)
  except on E: Exception do
    MessageDlg(Owner, E.Message, mtError, [mbOk], 0);
  end;
end;

procedure InvokeCommand(const AContextMenu: IContextMenu; ACommandID: UINT);
begin
  InvokeCommand(AContextMenu, MakeIntResource(Word(ACommandID)));
end;

现在您可以使用GetMenuItemInfo函数来获取标题，位图等，但更简单的方法是调用TrackPopupMenu并让Windows显示弹出菜单。这看起来像这样：

procedure ShowExplorerMenu(AForm: TForm; AMousePos: TPoint; 
  const APath: string; AFilenames: TStrings; );
var
  ShellMenu: IContextMenu;
  Menu: HMENU;
  MenuID: LongInt;
begin
  ShellMenu := GetExplorerMenu(AForm.Handle, APath, AFilenames);
  Menu := GetExplorerHMenu(ShellMenu);
  try
    MenuID := TrackPopupMenu(Menu, TPM_LEFTALIGN or TPM_TOPALIGN or TPM_RETURNCMD, 
      AMousePos.X, AMousePos.Y, 0, AForm.Handle, nil);
    InvokeCommand(ShellMenu, MenuID - MENUID_FIRST);
  finally
    DestroyMenu(Menu);
  end;
end;

如果您确实想要提取菜单项/标题并将它们添加到您自己的弹出菜单中（我们使用Toolbar 2000并完成此操作），以下是您将遇到的其他重大问题：

除非您处理消息并将消息传递给IContextMenu2 / IContextMenu3接口，否则“发送至”菜单以及按需构建的任何其他菜单都将无效。
菜单位图有两种不同的格式。 Delphi在没有哄骗的情况下不会处理Vista高色的，而旧版的则会使用XOR混合到背景颜色上。
有些菜单项是所有者绘制的，因此您必须捕获绘制消息并将它们绘制到您自己的画布上。
除非您手动查询，否则提示字符串将无效。
您需要管理IContextMenu和HMENU的生命周期，并且只有在弹出菜单关闭后才会释放它们。

Answer 3

这是一个例子，如何从Delphi应用程序中使用“发送到... |邮件收件人”上下文菜单项后面的操作系统逻辑来打开默认邮件客户端，显示传递的新邮件（已选中））附件：

How can I simulate ‘Send To…’ with Delphi?

如何访问Windows shell上下文菜单项？

3 个答案: