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

Question

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

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

http://www.koders.com/delphi/fid7ABE724EBD5F2123FF824AFD45151D2A087C5E6C.aspx?s=network

好的!我承认!我很懒，在 Google 上搜索了更新的设备，甚至像这样的设备，已经工作了几个小时，试图使该设备至少与 D7 兼容，但我想我在某个地方遗漏了一些东西，因为我在这方面的任何努力都没有成功.

所以...我的问题是，是否有人将此单元更新为 D7 及以上版本，或者是否存在执行此代码功能的单元或组件？

提前致谢!

约翰

Answer 1

我怀疑所需要的只是更新 DFS.inc 中的编译器版本指令

我添加

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

到主文件(ItemProp.pas)，它在 Delphi 2007 上编译正常，但我还没有尝试运行代码。