键盘模拟的问题 ( 积分: 50 )

procedure TZForm.btnExcuteClick(Sender: TObject);
var H:THandle;
begin

H := FindWindow(nil, '未命名 - 記事本');
if H=0 then
begin
ShowMessage('游戏好象没启动，请启动游戏');
exit;
end;
if H <> NULL THEN begin
BringWindowToTop(H);
Keybd_event(VK_F1,0,0,0);
keybd_event(VK_F1,0,KEYEVENTF_KEYUP,0);
END;
end;

哦.

根据上例的方法，也可以使用消息函数：PostMessage、SendMessage