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

　　本文题目所说的系统菜单不是指应用程序系统的菜单，而是指当用户用鼠标左键单击应用程序窗体左上角的图标时弹出的菜单。同样，当用户用鼠标右键单击应用程序窗体的标题栏，或系统任务栏中的应用程序标题时，弹出的也是这个菜单。系统菜单与应用程序菜单不一样，系统菜单不受应用程序控制，它是由Windows系统直接控制的。因此，在系统菜单上添加自定义菜单项，就显得比较困难。以下便是本人利用VB实现在系统菜单上添加自定义菜单项的方法。

　　---- 首先需要知道一点是系统菜单的工作过程。当我们单击系统菜单中某一项时，应用程序窗口会收到一条WM_SYSCOMMAND消息，该消息包含了系统菜单中所单击那一项的标识符ID。此时，应用程序窗口的默认窗口函数会根据WM_SYSCOMMAND消息以及菜单标识符ID执行相应的操作，完成菜单命令。如果我们能拦截到达窗口的WM_SYSCOMMAND消息，并且识别出菜单的标识符ID，我们就能够在系统菜单上添加自己的菜单项，并且执行指定的动作。下面的例子就是在系统菜单上添加一条分隔符和"关于…"菜单项。

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

　　'菜单API函数声明
Public Declare Function GetSystemMenu Lib "user32"
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function AppendMenu Lib "user32" Alias
"AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long,
ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
'菜单API函数常数声明
Public Const MF_BYCOMMAND = &H0&
Public Const MF_SEPARATOR = &H800&
Public Const MF_STRING = &H0&
'有关窗口函数的API函数声明
Public Declare Function SetWindowLong Lib
"user32" Alias "SetWindowLongA" (ByVal hwnd
As Long, ByVal nIndex As Long, ByVal
dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32"
Alias "CallWindowProcA" (ByVal lpPrevWndFunc
As Long, ByVal hwnd As Long, ByVal Msg As Long,
ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function DefWindowProc Lib
"user32" Alias "DefWindowProcA" (ByVal
hwnd As Long, ByVal wMsg As Long,
ByVal wParam As Long, ByVal lParam As Long) As Long
'消息
Public Const GWL_WNDPROC = (-4)
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const WM_NCRBUTTONDOWN = &HA4
Public Const WM_USER = &H400
Public Const WM_SYSCOMMAND = &H112
Public Const HTSYSMENU = 3
Public Const HTCAPTION = 2
'自定义菜单项的标识号偏移量
Public Const IDM_SEPARATOR = 1
Public Const IDM_MYABOUT = 2
'其他变量
Dim sHwnd As Long
Dim OldProc As Long