Question

delphi 怎么在另外一个程序的EDIT里 输入字符呢？

Answer 1

首先确保你的程序在运行时拥有足够的权限，比如使用管理员运行。

通过FindWindow函数找到你想要控制的程序，比如通过主窗口的名称或者类名，如果你不知道，可以用Spy++这样的小工具来找。

然后继续通过FindWindow在父窗口中通过WindowsClass名找到你要控制的Edit，函数将会返回一个窗口句柄。

然后你通过SendMessage(hwnd, WM_CHAR, .....)来向窗口发送字符。
WM_CHAR的具体含义可以查阅MSDN或者Delphi 自带的Win32帮助。

如果上述过程你觉得繁琐，可以通过Spy++直接获得Edit的句柄。但是这样的话程序没有通用性，因为程序每次运行时窗口的句柄都是不一样的，spy++只能获得你这一次运行的句柄。你自己使用FindWindow则可以每次都做查找。

Answer 2

var
tmp : string;
h,hh : HWND;
begin
h := findwindow(nil,'testForm');//获取主程序句柄
if h = 0 then
exit;
hh := findwindowex(h,0,'TEdit',nil); //获取edit控件句柄
if hh = 0 then
exit;
tmp := 'hello,world';
sendmessage(hh,WM_SetText,256,integer(tmp)); //将tmp内容写入Edit

Answer 3

没有完全理解你的意思，可否说清楚点