本文题目所说的菜单不是指应用程序系统的菜单,而是指当用户用鼠标左键单击应用程序窗体左上角的图标时弹出的菜单。同样,当用户用鼠标右键单击应用程序窗体的标题栏,或系统任务栏中的应用程序标题时,弹出的也是这个菜单。系统菜单与应用程序菜单不一样,系统菜单不受应用程序控制,它是由Windows系统直接控制的。因此,在系统菜单上添加自定义菜单项,就显得比较困难。以下便是本人利用VB实现在系统菜单上添加自定义菜单项的方法。
----首先需要知道一点是系统菜单的工作过程。当我们单击系统菜单中某一项时,应用程序窗口会收到一条WM_SYSCOMMAND消息,该消息包含了系统菜单中所单击那一项的标识符ID。此时,应用程序窗口的默认窗口函数会根据WM_SYSCOMMAND消息以及菜单标识符ID执行相应的操作,完成菜单命令。如果我们能拦截到达窗口的WM_SYSCOMMAND消息,并且识别出菜单的标识符ID,我们就能够在系统菜单上添加自己的菜单项,并且执行指定的动作。下面的例子就是在系统菜单上添加一条分隔符和"关于…"菜单项。

----启动VisualBasic,新建标准EXE工程,在工程中添加一标准模块,名称可以是默认的。在标准模块的声明部分加入下列代码:

菜单API函数声明
PublicDeclareFunctionGetSystemMenuLib"user32"(ByValhwndAsLong,ByValbRevertAsLong)AsLong
PublicDeclareFunctionAppendMenuLib"user32"Alias"AppendMenuA"(ByValhMenuAsLong,ByValwFlagsAsLong,ByValwIDNewItemAsLong,ByVallpNewItemAsAny)AsLong菜单API函数常数声明
PublicConstMF_BYCOMMAND="H0"
PublicConstMF_SEPARATOR="H800"
PublicConstMF_STRING="H0"有关窗口函数的API函数声明
PublicDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLong
PublicDeclareFunctionCallWindowProcLib"user32"Alias"CallWindowProcA"(ByVallpPrevWndFuncAsLong,ByValhwndAsLong,ByValMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLong
PublicDeclareFunctionDefWindowProcLib"user32"Alias"DefWindowProcA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLong消息
PublicConstGWL_WNDPROC=(-4)
PublicConstWM_NCLBUTTONDOWN="HA1"
PublicConstWM_NCRBUTTONDOWN="HA4"
PublicConstWM_USER="H400"
PublicConstWM_SYSCOMMAND="H112"
PublicConstHTSYSMENU=3
PublicConstHTCAPTION=2自定义菜单项的标识号偏移量
PublicConstIDM_SEPARATOR=1
PublicConstIDM_MYABOUT=2其他变量
DimsHwndAsLong
DimOldProcAsLong
接着可向标准模块添加下面两个过程:PublicSubAddMenu(frmAsForm)置换窗口函数过程
sHwnd=frm.hwnd
OldProc=SetWindowLong(frm.hwnd,GWL_WNDPROC,AddressOfAddCallBack)
EndSub
PublicSubRelease()释放自定义窗口函数过程
SetWindowLongsHwnd,GWL_WNDPROC,OldProc
EndSub

最后向标准模块中添加一自定义窗口函数过程:
PublicFunctionAddCallBack(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLongSelectCasewMsgCaseWM_SYSCOMMAND
系统消息
SelectCasewParam测试
CaseWM_USER IDM_MYABOUT
"关于..."菜单项
此处可加入用户需要自己处理"关于…"菜单项的代码
MsgBox"单击了添加的菜单条目",vbOKOnly

CaseElse其它菜单项交换系统处理
AddCallBack=DefWindowProc(hwnd,wMsg,wParam,lParam)
EndSelect
ExitFunction
CaseElse
AddCallBack=CallWindowProc(OldProc,hwnd,wMsg,wParam,lParam)End
SelectEnd
Function关闭标准模块的代码窗口,打开窗体的代码窗口,在Form_Load()过程中加入下列代码:
加载自定义窗口过程AddMenuMe获得系统菜单的句柄Dim
hMenuAsLonghMenu=GetSystemMenu(Me.hwnd,0)在系统菜单中添加自定义2条菜单项
AppendMenuhMenu,MF_SEPARATOROrMF_BYCOMMAND,IDM_SEPARATOR,
vbNullString分隔符AppendMenuhMenu,MF_BYCOMMANDOrMF_STRING,
WM_USER IDM_MYABOUT,"关于...""关于…"菜单项
在Form_Unload过程中加入下列代码:Release释放自定义窗口过程

----到此,代码的输入工作完成,接下来的是进行测试。单击启动按钮或按F5,启动工程,用鼠标单击窗体左上角的图标弹出系统菜单,看看是否如愿。千万要注意的一点是,在结束工程时,一定要用窗体右上角的关闭按钮或者系统菜单中的关闭菜单项,否则的话,会造成VisualBasic系统崩溃,出现非法操作的错误,所以在测试工程前,最好对工程进行保存。
----以上程序在Windows95,VisualBasic6.0环境下调试通过。->