Question

DELPHI 获得句柄并发送给窗口文本和回车

h:=FindWindow(nil,'Windows Title');
h:= FindWindowEx(h,0,nil,0);
if h>0 then
begin
showmessage(‘找到句柄’);
SetForegroundWindow(h);
keybd_event(Ord(#13),0,0,0);
sleep(300);
keybd_event(Ord(#13),0,KEYEVENTF_KEYUP,0);
end;

程序已经可以执行到找到句柄，但是给窗口发送按键操作就不生效了，但是也没报错，不知道到底哪里出了问题。
其实就是想找到一个DOS窗口，然后输入文本和回车。

这个DOS窗口提示输入用户名，密码。

想让软件自动输入，也就是，先发送用户名给DOS窗口，再发送回车，再发送密码，再发送回车。

Answer 1

//改成这样试下吧

var
h :THandle;
i :integer;
const
user = 'user';
pw = 'pw';
begin
h := FindWindow(nil,'Windows Title');
h := FindWindowEx(h,0,nil,0)
if h <> 0 then
begin
showmessage('找到句柄');
SetForegroundWindow(h);
for i := 1 to Length(user) do
SendMessage(h,WM_CHAR,Ord(user[i]),0); //输入帐号
PostMessage(h,WM_KEYDOWN,VK_RETURN,0);
sleep(300);
for i := 1 to Length(pw) do
SendMessage(h,WM_CHAR,Ord(pw[i]),0); //输入密码
PostMessage(h,WM_KEYDOWN,VK_RETURN,0);
end;