如何正确显示基于资源管理器的右键菜单

Question

如何正确显示基于资源管理器的右键菜单

4

我使用Sertac Akyuz在此处回答中提供的代码创建了此菜单：Show the default right-click menu - Delphi，它运行良好，但存在问题：当我点击创建的菜单中的“删除”（将文件删除到回收站）时，它会询问我：确定要删除吗？ 当我点击“是”时，它可以正常工作，但当我点击“否”时，它会显示一个错误，我在调试器中看到，错误出现在这一行：

OleCheck(ContextMenu.InvokeCommand(CommandInfo));

Error: ###(gdb unparsed remainder:s 0x0 out of bounds>)###.

我使用Lazarus，但我认为Delphi也同样适用。似乎菜单（窗口）试图向我的程序返回答案“不”，在这种情况下会发生错误。如何解决这个问题？如何正确地处理答案“不”的情况？

- user2154246

1

尝试在Double Commander源代码中查找其实现：svn co https://doublecmd.svn.sourceforge.net/svnroot/doublecmd doublecmd。<br /> 我不确定，但答案可能可以在此文件中找到：doublecmd\trunk\src\platform\win\ushellcontextmenu.pas。 - Abelisto

请不要将Lazarus中的调试运行时问题标记为Delphi。这会让人感到困惑。如果您正在提出调试问题，请选择一个工具。 - Warren P

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Sertac Akyuz · Accepted Answer

您没有指定错误编号，但在我尝试复制步骤时，OleCheck调用失败，错误代码是0x80270000。高位部分除了错误位外是0x27（39），这是在winerror.h中定义的FACILTY_SHELL。如您所见，低位是“0”，表示shell未给出任何特定的错误代码，实际上该代码与ERROR_SUCCESS或NO_ERROR相同。

我理解为，shell只是通知命令（删除操作）失败了。失败原因是用户取消了操作。我的建议是，根据需要修改代码。您已经知道操作失败了，但您可以选择忽略它，或者通知用户。也许可以像这样：

var
  ...
  InvokeResult: HRESULT;
begin

  ...
//      OleCheck(ContextMenu.InvokeCommand(CommandInfo));
      InvokeResult := ContextMenu.InvokeCommand(CommandInfo);
      if not Succeeded(InvokeResult) then begin
        if LoWord(InvokeResult) = NO_ERROR then
          ShowMessage('Command did not carried out')
        else
          OleError(InvokeResult);
      end;
    ...