摘要： 所谓动态菜单是指菜单项随着程序的操作变化而变化。现在，我们用Delphi来实现这一功能，具体步骤如下： 1．首先，确定动态菜单的数据来源，即要确定动态菜单标题是来自Windows的系统注册表，还是来自一个数据库，或者是来自一个子目录，主要由程序的功能而定。这里假设主窗口名为MainForm，上面已有主菜单，其动态菜单的数据源是一个String（字符串）类型的变量，名称为SubMenuItemSource。 2．确定生成的动态菜单的功能，即定义动态菜单的OnClick()事件，例如，动态菜单标题来自一个磁盘文件名时，那么程序在响应OnClick()事件时，可能的操作是要打开选中的文件。因此，对菜 阅读全文

摘要： 1 unit PopupMenuShell; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, StrUtils, ComObj, ShlObj, ActiveX; 7 8 function DisplayContextMenu(const Handle: THandle; const FileName: string; Pos: TPoint): Boolean; 9 10 implementation 11 12 type 13 TUnicodePath = array[0..MAX_PATH - 1] of WideChar; . 阅读全文