我使用Sertac Akyuz在这里回答的代码创建了这个菜单:
Show the default right-click menu – Delphi
它运作良好,但有问题:
当我点击创建菜单时:删除(删除文件到回收) – 它问我:你确定要删除吗?
Show the default right-click menu – Delphi
它运作良好,但有问题:
当我点击创建菜单时:删除(删除文件到回收) – 它问我:你确定要删除吗?
当我点击是 – 它工作正常,但当我点击否 – 它显示我的错误,
我在调试器中看到错误在线:
OleCheck(ContextMenu.InvokeCommand(CommandInfo)); Error: ###(gdb unparsed remainder:s 0x0 out of bounds>)###.
我使用Lazarus,但我认为,在Delphi中它也是实际的.
解决方法
您尚未指定错误编号,但是当我尝试复制这些步骤时,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; ...