怎样用 sendmessage发送消息控制另一个程序的按钮?

Question

怎样用 sendmessage发送消息控制另一个程序的按钮?

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  vHandle: THandle;
begin
  vHandle := FindWindow('TFormTemp', nil);
  vHandle := FindWindowEx(vHandle, 0, 'TButton', 'Button1');
  SendMessage(vHandle, BM_CLICK, 0, 0);
(*
  SendMessage(vHandle, WM_LBUTTONDOWN, 0, 0);
  SendMessage(vHandle, WM_LBUTTONUP, 0, 0);
*)
end;

Answer 2

你要控制什么呀，
Sendmessage的参数是根据你的消息类型而定的，但前两个定的
Sendmessage原型
LRESULT SendMessage(    HWND hWnd, // handle of destination window
    UINT Msg, // message to send
    WPARAM wParam, // first message parameter
    LPARAM lParam  // second message parameter
   );
HWND就是你要发对象的Handle如你要向按钮发消息,则是Button1.handle
Msg就是消息类型，如wm_close
后面两个是参带的参数，有的消息有参数，有的有一个，有的有两个,有的没有,如wm_close就没有

Answer 3

GREE  zswang(伴水清清)(专家门诊清洁工)

Answer 4

能不能把所有的Msg值都列出来呢？？？