Clicking and Disabling Menus

[Rh0ads]

How do i click a menu in another application using API, and how do i disable a sub menu like:

File-
--Open
--Save


how would i go about disabling the open menu? Thanks

[gwdash]

you will have to send the WM_COMMAND message. don't have the exact code now, have seen it on the forum, but search is disabled :(

To disable menuitems


Private Const MIIM_SUBMENU = &H4
Private Const MIIM_STATE = &H1
Private Const MFS_GRAYED = &H1
Private Const MFS_ENABLED = &H0


Private Type MENUITEMINFO
cbSize As Long
fMask As Long
fType As Long
fState As Long
wID As Long
hSubMenu As Long
hbmpChecked As Long
hbmpUnchecked As Long
dwItemData As Long
dwTypeData As String
cch As Long
End Type
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Boolean, lpmii As MENUITEMINFO) As Long
Private Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal uItem As Long, ByVal fByPosition As Long, lpmii As MENUITEMINFO) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long

Private Sub SetEnabled(bEnabled As Boolean, hWnd As Long, index As Integer)

Dim hMenu As Long, hSubMenu As Long, MII As MENUITEMINFO
'get the handle of the current menu
hMenu = GetMenu(hWnd)
'get the handle of the first submenu
hSubMenu = GetSubMenu(hMenu, index)
'initialize the structure

MII.cbSize = Len(MII)

MII.fMask = MIIM_STATE 'state mask
If bEnabled Then
MII.fState = MFS_ENABLED
Else
MII.fState = MFS_GRAYED 'gray menu item
End If
SetMenuItemInfo hSubMenu, 0, True, MII
End Sub

[mmr93]

How would you go about disabling the "Save" submenu item?