【Delphi】系统菜单中增加菜单项

一、问题提出

二、程序截图

编辑编辑

三、程序代码：

一、问题提出

我们在开发windows程序的时候，可能会希望在窗体的系统菜单中增加一个菜单项，那么如何实现呢，实际上通过调用windows API是可以实现的，在Delphi中具体的实现代码见下面，API的参考连接地址：Menus Functions | Microsoft Learn

二、程序截图

三、程序代码：

如下示例代码可以根据实际情况进行修改，就可以达到自己需要的目的。

{sensor 2024-01-29相关文档：https://learn.microsoft.com/zh-hk/previous-versions/aa931756(v=msdn.10)}unit uMainForm;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons;constMENU_MYITEM1 = WM_USER + 1000; //自定义消息句柄typeTForm2 = class(TForm)SpeedButton1: TSpeedButton;SpeedButton2: TSpeedButton;procedure SpeedButton1Click(Sender: TObject);procedure SpeedButton2Click(Sender: TObject);private{ Private declarations }H : THandle;procedure WMSysCommand(var Msg : TWmSysCommand); message WM_SYSCOMMAND; //拦截WM_SYSTEM消息public{ Public declarations }end;varForm2: TForm2;implementation{$R *.dfm}{ TForm2 }procedure TForm2.SpeedButton1Click(Sender: TObject);
beginAppendMenu(GetSystemMenu(handle,false),MF_SEPARATOR,0,'');//增加分隔条AppendMenu(GetSystemMenu(handle,false),MF_STRING,MENU_MYITEM1,'我的菜单项');//增加自定义菜单
end;procedure TForm2.SpeedButton2Click(Sender: TObject);
begin//删除分隔条，注意参数 0DeleteMenu(GetSystemMenu(handle,false),0,MF_BYCOMMAND);//删除一个菜单DeleteMenu(GetSystemMenu(handle,false),MENU_MYITEM1,MF_BYCOMMAND);
end;procedure TForm2.WMSysCommand(var Msg: TWmSysCommand);
beginif Msg.CmdType = MENU_MYITEM1 then //是自定义的菜单项MessageBox(handle,'自定义系统菜单项','提示',MB_OK or MB_ICONINFORMATION)elseinherited; // 其他交给系统处理,切记这一句很重要！！！！
end;end.