如何往外部程序的某个窗口的特定文本框发送字符串

Question

如体，该窗口有比较多的文本框，我要往特定的文本框发字符串

Answer 1

const
  CW = 'AAAAAA';//窗口标题
  EW = 'Edit1';//Edit控件的Text
var
  HW,HE : HWND;
begin
  HW := FindWindow(nil,PChar(CW));//查到窗体句柄
  if HW <> 0 then
     begin
     HE := FindWindowEx(HW,0,PChar('TEdit'),PChar(EW));//Edit的句柄
     //SetWindowText(HE,PChar('NEW TEXT'));
     SendMessage(HE,WM_SetText,0,integer(PChar('NEW TEXT')));
     end;
end;

Answer 2

楼上的，如果是dirext窗体该怎么做？

Answer 3

现Hook游戏中的消息，看看游戏中如何实现文字输入，然后，模拟发送消息看看行不行！