Delphi 在系统菜单中添加菜单项

 1 unit Unit001;

 2 

 3 interface

 4 

 5 uses

 6   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

 7   Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

 8 

 9 type

10   TForm1 = class(TForm)

11   procedure FormCreate(Sender:TObject);

12   procedure sysmenu(var msg:twmmenuselect);message wm_syscommand;

13   private

14     { Private declarations }

15   public

16     { Public declarations }

17   end;

18 

19 var

20   Form1: TForm1;

21 

22 implementation

23 

24 {$R *.dfm}

25 procedure TForm1.FormCreate(Sender:TObject);

26 var

27   i:integer;

28 begin

29   i:= getsystemmenu(handle,false);

30   appendmenu(i,mf_separator,0,nil);             //添加分割线

31   appendmenu(i,mf_string,100,'我的菜单(&E)');   //添加菜单项

32 end;

33 procedure TForm1.sysmenu(var msg:twmmenuselect);

34 begin

35   if msg.IDItem = 100 then

36     ShowMessage('您选择了自己添加的菜单！')

37     else

38       inherited;

39 end;

40 end.

API函数

function GetSystemMenu(hWnd:HWND;bRevert:BOOL):HMENU;stdcall;

　　参数说明：

　　hWnd: 所要取得系统菜单句柄的目标窗口句柄。

　　bRevert:是否修改原始菜单。

　　返回一个HMENU型的菜单句柄。

　　通过GetSystemMenu得到句柄后可以使用AppendMenu函数为系统菜单增加一个菜单项，该函数原型为：

function AppendMenu(hMenu:HMENU;uFlags,uIDNewItem:UNIT;lpNewItem:Pchar):BOOL;stdcall;

　　参数说明：

　　hMenu: 用GetSystemMenu函数得到的菜单句柄。

　　uFlag,uIDNewItem：菜单唯一标志，弹出菜单唯一标志。

　　lpNewItem:菜单的类型。

容易出现问题：

　　缺少代码 message wm_syscommand;这句代码的主要作用是：A window receives this message when the user chooses a commond from the window menu.而如果注释了inherited ,则所有系统菜单都不能用。

OnCreate关联

当窗体初始化创建时，就会发生OnCreate事件，对特定窗体的任何实例，OnCreate事件只发生一次，OnCreate处理程序只是用来执行任何启动任务，这些启动任务对于窗体来说是需要的。