向其他窗体的文本框赋值

Question

高手们：因为工作需要要向一个窗体的文本框中的输入固定的内容，想写个小程序自动向该文本框赋值。

Answer 1

EnumWindows或FindWindow
EnumChildWindows
得到Handle
SetWindowText(AHandle,'****')

Answer 2

这个方法我用了，但是要赋值的内容有点长，我用下面的方法不能通过。
var
  A:String;  A := '************';
  EditHWnd := FindWindowEx();//取得“文本框”句柄
  SetWindowText(EditHWnd,A);
请指教！