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

Question

我使用 Sertac Akyuz 在此处回答时放置的代码创建此菜单： Show the default right-click menu - Delphi 而且效果很好，但是有问题： 当我点击创建的菜单时：删除（删除文件以回收）-它问我：Are you sure want to delete?

当我单击“是”时 - 它工作正常，但当我单击“否”时 - 它显示错误， 我在调试器中看到，错误在线：

OleCheck(ContextMenu.InvokeCommand(CommandInfo));

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

我使用 Lazarus，但我认为，在 Delphi 中它也是实际的。

在我看来，菜单（窗口）试图返回我的程序答案 - 不，在这种情况下会发生错误。

如何解决这个问题？回答“否”如何正确解决这种情况？

Answer 1

您尚未指定错误编号，但当我尝试复制这些步骤时，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;
    ...