对当前焦点发送文字

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