Question

用delphi写段模拟按键

实现 向某窗口发送后台模拟按键：
z r 1 2 3
各间隔1秒
无限循环

坐等解惑
用delphi写段模拟按键，实现向游戏窗口发送后台模拟按键：键盘上的Z 键盘上的R 两个按键码间隔1秒，无限循环到终止键。

（按键精灵8模拟的后台，3D游戏窗口好像不支持，所以求段用delphi写的模拟按键）

Answer 1

新建一个工程，在窗体上添加一个按钮，点击事件如下：

procedure TForm1.Button1Click(Sender: TObject);
procedure KeyPress(k:integer);
begin
keybd_event(k,MapVirtualKey(k,0),0,0);
keybd_event(k, MapVirtualKey(k,0),2,0);
Application.ProcessMessages;
Sleep(1000);
end;
begin
while true do
begin
KeyPress(90); // z
KeyPress(82); // r
KeyPress(49); // 1
KeyPress(50); // 2
KeyPress(51); // 3
end;
end;

鼠标点那个窗口，它就会往那个窗口不断发键了。

Answer 2

找到窗口句柄发送按键消息。三楼的是向整个系统发送消息。
查找窗口句柄。可以根据进程来。

Answer 3

能否再详细些 不太明白！

Answer 4

postmessage