添加菜单到系统菜单

王朝vb·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

添加菜单到系统菜单

Private Sub Form_Load()

OldWindowProc = GetWindowLong(Form1.hwnd, GWL_WNDPROC)

' 取得窗口函数的地址

Call SetWindowLong(Form1.hwnd, GWL_WNDPROC, AddressOf SubClass1_WndMessage)

' 用SubClass1_WndMessage代替窗口函数处理消息

SysMenuHwnd = GetSystemMenu(Form1.hwnd, False)

Call AppendMenu(SysMenuHwnd, MF_SEPARATOR, 2000, vbNullString)

Call AppendMenu(SysMenuHwnd, MF_STRING, 2001, "关于本程序(&A)")

Call AppendMenu(SysMenuHwnd, MF_SEPARATOR, 2002, vbNullString)

Call AppendMenu(SysMenuHwnd, MF_STRING, 2003, "恢复系统菜单(&R)")

End Sub

Private Sub Form_Unload(Cancel As Integer)

If OldWindowProc <> GetWindowLong(Form1.hwnd, GWL_WNDPROC) Then

Call SetWindowLong(Form1.hwnd, GWL_WNDPROC, OldWindowProc)

End If

End Sub

Option Explicit

' API函数声明

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long,

ByVal nIndex As Long) As Long

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 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

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal

lpDirectory As String, ByVal nShowCmd As Long) As Long

' 常数声明

Public Const WM_SYSCOMMAND = &H112

' 单击控制框产生此消息

Public Const MF_SEPARATOR = &H800&

' 为菜单加一条分隔线

Public Const MF_STRING = &H0&

' 在菜单中加一个字符串

Public Const GWL_WNDPROC = (-4)

' 全局变量

Public OldWindowProc As Long

' 保存默认的窗口函数地址

Public SysMenuHwnd As Long

' 保存系统菜单句柄

Public Function SubClass1_WndMessage(ByVal hwnd As Long, ByVal Msg As Long, ByVal wp As Long,

ByVal lp As Long) As Long

If Msg <> WM_SYSCOMMAND Then

SubClass1_WndMessage = CallWindowProc(OldWindowProc, hwnd, Msg, wp, lp)

' 如果消息不是WM_SYSCOMMAND,就调用默认的窗口函数处理

Exit Function

End If

Select Case wp

Case 2001

Call MsgBox("本程序实现了修改系统菜单的功能 ", vbOKOnly + vbInformation)

Case 2003

Call GetSystemMenu(Form1.hwnd, True)

Call SetWindowLong(Form1.hwnd, GWL_WNDPROC, OldWindowProc)

Call MsgBox("已经恢复了默认的系统菜单 ", vbOKOnly + vbInformation)

Case Else

SubClass1_WndMessage = CallWindowProc(OldWindowProc, hwnd, Msg, wp, lp)

Exit Function

End Select

SubClass1_WndMessage = True

End Function

以上代码来自: 源代码数据库(SourceDataBase)

当前版本: 1.0.538

作者: Shawls

个人主页: Http://Shawls.Yeah.Net

E-Mail: ShawFile@163.Net

QQ: 9181729

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航