在系统菜单上添加自定义菜单项

ReadyGo!技术成就梦想 网络搜索 efish 2008-2-24 2:47:46

本文题目所说的系统菜单不是指应用程序系统的菜单，而是指当用户用鼠标左键单击应用程序窗体左上角的图标时弹出的菜单。同样，当用户用鼠标右键单击应用程序窗体的标题栏，或系统任务栏中的应用程序标题时，弹出的也是这个菜单。系统菜单与应用程序菜单不一样，系统菜单不受应用程序控制，它是由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环境下调试通过。->

责任编辑: efish 参与评论 查找更多：

2秒记住本站域名

玩过泡泡龙吗？Readygo?Go! 再加上.Com.Cn的后缀，那就是大名小顶的ReadyGo.com.cn

分类导航