VAR h:HWND; h1,h2:Thandle ; id:integer;begin h:=findwindow('Notepad','无标题 - 记事本'); h1:=GetMenu(h); h2:=GetSubMenu(h1, 2); id:=GetMenuItemID(h2, 1) ; PostMessage (h,WM_COMMAND,id, 0);end;以上代码 是点击 记事本的 “字体” 按钮。。其他自己摸索GetSubMenu(h1, 2); 的 2 就是 0-》1-》2 文件-》编辑-》格式要的是“格式”GetMenuItemID(h2, 1) ; 的 1 是 0-》1 自动换行 —》字体
