打开文件的上下文对话框、默认操作等。

Question

5

在Windows中，当用户在Windows资源管理器中右键单击文件或目录时，会出现一个Windows上下文菜单，其中包含有关此文件或目录的所有操作。

很久以前，Brad Stowers编写了一个名为ItemProp.pas的单元，它在用户自己的Delphi应用程序中完成了完全相同的操作。该单元在Delphi 5中运行良好，但对于D7及以上版本，会抛出许多错误。

好的！我承认了！我很懒，已经在谷歌上搜索了更新的单元甚至像这样的，尝试了几个小时让这个单元至少与D7兼容，但我想我错过了某些东西，因为我在这方面没有任何成功。

那么...我的问题是，是否有人为D7及以上更新了该单元或存在一个执行此代码所做的功能的单元或组件？

提前感谢！

约翰

- John

2个回答

5

不必翻译此单元，您可以使用更新的JEDI JCL库，请查看JclShell单元。此单元中存在一个名为DisplayContextMenu的函数，该函数显示文件的shell上下文菜单。

function DisplayContextMenu(const Handle: HWND; const FileName: string;
  Pos: TPoint): Boolean;

- RRUZ

我也搜索了JEDI，想着他们一定有类似的东西。但是由于有太多组件，像往常一样我错过了它。谢谢大家！ - John

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

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

- Gerry Coll · Accepted Answer

我猜只需要更新DFS.inc中编译器版本指令即可。

我添加了。

{$DEFINE DFS_DELPHI}
{$DEFINE DFS_COMPILER_4_UP}
{$DEFINE DFS_NO_COM_CLEANUP}
{$DEFINE DFS_COMPILER_3_UP}

将此代码添加到主文件（ItemProp.pas）中，使用Delphi2007编译通过，但我还没有尝试运行该代码。