请教高手能否实现

Question

这是可以的，比如可以使用findwindow,finddigitem,SetWindowText等API函数组合实现。

Answer 1

对不起，以上finddigitem应是GetDlgItem.

Answer 2

可以，用Api的GetWindow()得到Handle,
然后SendMessage();

Answer 3

参考一下，稍作修改即可实现你要的功能(很简单，应该看得懂吧:)procedure TForm1.Button1Click(Sender: TObject);
var
  TheHwnd : Hwnd;
  YourText : string;
begin
  YourText := '你想发送什么字符串给新打开的记事本呢？:)';
  TheHwnd := FindWindowEx(FindWindow(nil, PChar('无标题 - 记事本')), 0, 'Edit', nil);
  SendMessage(TheHwnd, WM_SETTEXT , 255, longint(pchar(YourText)));
end;* 只要把句柄指向你要发送的那个程序(输入框）即可：） 

Answer 4

    var hw: Hwnd
    
    hw:=WindowFromPoint(Mouse.CursorPos);
    //获取当前窗口句柄
    SendMessage(hw, WM_SETTEXT, 255, LongInt(PChar('你好')));
    //修改内容
    UpdateWindow(hw)