对当前焦点发送文字

var
  clp: TClipboard;
begin

  clp := TClipboard.Create;
  try
  clp.AsText := '模拟键盘输入的值';
  PostMessage(GetFocus,WM_PASTE,0,0);
  finally
  clp.Free;
  end;

 

 

procedure TForm1.FormCreate(Sender: TObject);
var
  hCalc, h1: Cardinal;
begin
  WinExec('calc', SW_SHOWNORMAL);//运行计算器

  hCalc := FindWindow('SciCalc', nil);//查找计算器主窗口句柄，通过Spy++可查看到类名等
  h1 := FindWindowEx(hCalc, 0, 'Button', '1');//查找按钮1的句柄，通过Spy++可查看到各种控件及他们的父子、兄弟关系
  SendMessage(hCalc, WM_COMMAND, MakeWParam(GetDlgCtrlID(h1), BN_CLICKED), h1)//点击按钮1

end;

要单击游戏弹出的对话框“确定”按钮，先用spy++看能不能获取按钮的句柄，如果连spy++都获取不到，那就只能模拟鼠标或键盘操作了（api分别是mouse_event和keybd_event）！