正文

delphi 发送Windwos消息控制按钮（控制计算器里的某一个按钮）

IP云
IP云V管理员/5 阅读
09/27
提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示
  1. procedure TfrmMain.btnSendClick(Sender: TObject);
  2. var
  3. hCalc, h1: Cardinal;
  4. begin
  5. WinExec('calc', SW_SHOWNORMAL);//运行计算器
  6. hCalc := FindWindow('SciCalc', nil);
  7. //查找计算器主窗口句柄，通过Spy++可查看到类名等
  8. h1 := FindWindowEx(hCalc, 0, 'Button', '9');
  9. //查找按钮1的句柄，通过Spy++可查看到各种控件及他们的父子、兄弟关系
  10. SendMessage(hCalc, WM_COMMAND, MakeWParam(GetDlgCtrlID(h1), BN_CLICKED), h1)
  11. end;

http://blog.csdn.net/yanjiaye520/article/details/7942499