用VB6 如何获取/修改windows记事本(Notepad)菜单上的文字

Question

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SetWindowTextW Lib "user32" (ByVal hwnd As Long, ByVal lpString As Long) As Long
Private Const EM_GETLINE = &HC4Private Sub Command1_Click()Dim ParentHandle As LongShell "NotePad", vbNormalFocus '打开记事本ParentHandle = FindWindow("Notepad", vbNullString) SetWindowTextW ParentHandle, StrPtr("xatire depter")
 
End Sub我用了这个API 修改了WinDows 记事本标题栏上的文字.
我还想修改Windows 记事本菜单上的文字.
用什么样的API可以获取/修改Windows 记事本菜单上的文字

Answer 1

获取菜单上的句柄，然后通过GetWindowText获取文本内容，通过SetWindowText设置文本内容。

Answer 2

就是获取控件句柄啊
childwindowfrompoint 或者用查找句柄的软件，看看菜单栏的标题和类名是什么，然后findwindow

Answer 3

标准菜单是有菜单句柄的，不同于窗口句柄，windows有专门操作菜单的API，参考：
http://topic.csdn.net/u/20120914/18/c51b1b58-1eac-4dd9-8e63-0afc572844e4.html

Answer 4

先用getmenu获得主菜单，然后用getsubmenu获得子菜单，最后用modifymenu修改。