对当前焦点发送文字

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）！