如何获取指定窗口的菜单的句柄？

[ladanyu]

我打开一个应用程序，比如word.exe， 怎么能得到它的菜单的句柄？
大家帮帮忙！

[faysky2]

用API GetMenue函数：
Private Declare Function GetMenu Lib "user32" Alias "GetMenu" (ByVal hwnd As Long) As Long
Private Sub Command1_Click()
Dim mHwnd As Long
mHwnd=GetMenu(Word.exe的窗口句柄)
End Sub

[faysky2]

如果知道Word.Exe的窗口标题，可以用FindWindow来得到它的窗口句柄：
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Dim fHwnd As Long
fHwnd=FindWindow("","窗口标题")

[ladanyu]

谢谢您的回答。
我试过了，可以得到自己做测试时使用的VB窗体的菜单句柄,却得不到其他应用程序(如word.exe)菜单的句柄(返回的句柄值是0).不知道是什么问题?