通过调用 windows api 函数 getsystemmenu 获取窗口系统菜单的句柄，再配合 appendmenu 和 deletemenu 函数，可在 delphi 中实现对系统菜单项的动态增删操作，从而灵活定制窗口系统菜单内容，增强程序界面的可扩展性与用户交互友好度。
1、 启动 Delphi 7，新建一个 VCL Forms Application 工程，系统默认创建的主窗体名称为 Form1。
2、 在 Form1 的对象检查器（Object Inspector）中，切换至“事件”（Events）选项卡，双击 OnCreate 事件，自动生成其事件处理过程，该过程将在窗体初始化时自动调用。
3、 在 Form1.OnCreate 事件处理函数内部插入相关代码逻辑。
4、 var
5、 添加菜单项：在系统菜单末尾插入一条新菜单项，显示文本为“我建的系统菜单(&E)”，并为其分配唯一命令标识符 1001。
6、 简要说明：
7、 参数说明
8、 hWnd：目标窗口的句柄，用于定位并获取其关联的系统菜单句柄。
9、 是否还原为原始系统菜单状态。
10、 函数成功执行后返回类型为 HMENU 的菜单句柄。
11、 第一个参数即当前窗体句柄，此处为 Form1.Handle。
12、 保持原有菜单结构不变，仅作扩展添加。
13、 获取系统菜单句柄 h 后，调用 AppendMenu 方法向其中追加菜单项。
14、 参数说明
15、 hMenu：由 GetSystemMenu 返回的系统菜单句柄。
16、 若 uFlag 包含 MF_STRING 常量，则 lpNewItem 指向一个以 null 结尾的 Unicode 字符串。
17、 新增菜单项的唯一整型 ID，用于后续识别和响应。
18、 菜单项类型由 lpNewItem 所指内容或 uFlag 决定。
19、 使用 AppendMenu 先插入一条分隔线（MF_SEPARATOR），再添加 ID 为 1001、标题为“我建的系统菜单(&E)”的可点击菜单项。
20、 按 F9 运行程序，在窗体标题栏上右键单击，弹出的系统菜单底部即可看到新增的菜单选项。
柏顿企业网站管理系统（免费版）秉承了东莞柏顿软件的一惯原则（致力于打造简洁、实用、绿色的管理系统）而推出的一款适合广大中小型企业的网站管理系统。主要功能如下：1.基本设置：联系方式、关键字、版权信息等等；2.菜单管理：用户可以在线增加、删除、修改和隐藏前台的菜单栏目和菜单项3.新闻系统：支持二级分类，可分类查看新闻、修改新闻、批量推荐、删除新闻，可设置是否推荐、新闻点击等4.产品系统: 产品类别新
21、 在 TForm1 类的 private 区域中声明一个消息响应方法，用于捕获系统菜单项被选中的动作。
22、 该方法接收 Windows 消息结构体参数，从中提取菜单命令 ID 进行判断。
23、 将光标置于方法声明行，按下 Ctrl+Shift+C 快捷键，Delphi 自动补全函数体框架，随后在其内部编写具体响应逻辑。
24、 当接收到的消息中 wParam（即菜单项 ID）等于 1001 时，弹出提示框：“你选择了自己添加的菜单！”，其余情况交由父类默认处理。该机制确保仅对自定义菜单项作出响应。
25、 按 F9 启动程序，右键点击窗体标题栏，在弹出菜单中选择末尾新增项，即可触发对应提示对话框。
26、 切回 Form1 设计视图，从组件面板拖入一个 TButton 控件到窗体上。
27、 双击刚添加的按钮 Button1，进入其 OnClick 事件处理函数 Button1Click(Sender: TObject)；在此函数体内编写删除自定义菜单项的代码。
28、 var
29、 补充说明：
30、 首先调用 GetSystemMenu(Form1.Handle, False) 获取当前窗体的系统菜单句柄。
31、 hMenu：长整型变量，存储系统菜单句柄。
32、 nPosition：长整型，表示待删除菜单项的位置索引或命令 ID，取决于 wFlags 的取值。
33、 wFlags：长整型标志参数，常用值为 MF_BYPOSITION 或 MF_BYCOMMAND。
34、 因此前文添加菜单时采用的是命令 ID 方式（MF_BYCOMMAND），故此处删除也应使用相同方式，传入 MF_BYCOMMAND 标志及 ID 值 1001。
35、 按 F9 运行程序，点击 Button1 按钮后，再次右键标题栏打开系统菜单，可见之前添加的菜单项已不复存在。
