■如何通过发送WM_COMMAND消息模拟点击其他程序窗体上的菜单项?

Question

■如何通过发送WM_COMMAND消息模拟点击其他程序窗体上的菜单项?
VC++写的程序可用通过资源ID控制(eXeScope中查看),但是Delphi写的程序用eXeScope看不到菜单项的ID,怎么办呢？

Answer 1

//這樣試試, 記事本-查找
procedure TForm1.Button1Click(Sender: TObject);
var
   h,m,s,s1:hwnd;
begin
  h:=FindWindow('notepad',nil);
   if h<>0 then
   begin
     m:=GetMenu(h);
     s:=GetSubMenu(m,1);
     s1:=GetSubMenu(s,7);
     SendMessage(h,WM_COMMAND,MakeLong(GetMenuItemId(s,7),0),s1);
  end;
end;