将“粘贴”添加到 Shell 上下文菜单

Question

我正在使用这个例程来弹出一个运行良好的文件名的 Shell 上下文菜单，除了一件事。

How to pop-up the Windows context menu for a given file using Delphi?

当我单击“复制”时，菜单按预期关闭。如果我移动到另一个文件夹或留在同一个文件夹中，当我再次右键单击上下文菜单时，它没有“粘贴”选项。甚至没有一个变灰的。我检查了海报的博客，正如他在底部的编辑中提到的那样，但是新的例程因参数不正确而崩溃。

有人可以帮忙将“粘贴”添加到上述链接中的原始例程中

谢谢

Answer 1

寻找 TClipboard（库/使用 ClipBrd）。使用它你可以在 Delphi 上管理一个剪贴板。

更多信息：Basic CLipboard Operations

Obs.：您也可以使用“操作”，具体取决于您的需要。请参阅 ActionManager 组件和弹出菜单的 Action 属性。