怎么用delphi模拟鼠标键盘？

Question

我想用一个程序去控制另一个游戏的操作，请高手赐教，先谢谢了！

Answer 1

模拟键盘我们用Keybd_event这个api函数，模拟鼠标按键用mouse_event函数。
　　先介绍一下Keybd_event函数。Keybd_event能触发一个按键事件，也就是说回产生一个WM_KEYDOWN或WM_KEYUP消息。当然也可以用产生这两个消息来模拟按键，但是没有直接用这个函数方便。Keybd_event共有四个参数，第一个为按键的虚拟键值，如回车键为vk_return,　tab键为vk_tab。第二个参数为扫描码，一般不用设置，用0代替就行。第三个参数为选项标志，如果为keydown则置0即可，如果为keyup则设成“KEYEVENTF_KEYUP”，第四个参数一般也是置0即可。用如下代码即可实现模拟按下i键，其中的$49表示i键的虚拟键值： 
keybd_event($49,0,0,0); 
keybd_event($49,0,KEYEVENTF_KEYUP,0); ... 　　
也可以直接发送消息，wm_keydown
PostMessage(Memo1.Handle,WM_KEYDOWN,49,0)　　
　　mouse_event最好配合setcursorpos(x,y)函数一起使用，与Keybd_event类似，mouse_event有五个参数，第一个为选项标志，为MOUSEEVENTF_LEFTDOWN时表示左键按下，为MOUSEEVENTF_LEFTUP表示左键松开，向系统发送相应消息。第二三个参数分别表示x,y相对位置，一般可设为0,0,第四五个参数并不重要，一般也可设为0,0。若要得到Keybd_event和mouse_event函数的更详细的用法，可以查阅msdn或delphi帮助。下面是关于mouse_event的示例代码：
　
setcursorpos(20,132);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); 
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); ... 　　　上面的代码表示鼠标的双击，若要表示单击，用两个mouse_event即可(一次放下，一次松开)。 　
　　　注意，不管是模拟键盘还是鼠标事件，都要注意还原，即按完键要松开，一个keydown对应一个keyup；鼠标单击　完也要松开， 不然可能影响程序的功能。 　

Answer 2

谢谢你的回复！
我想请问：怎么避免模拟键盘和物理键盘产生组合情况？          如：当模拟按键模拟执行按下alt键时，而又没执行弹起，人又按下物理键盘的Enter键，这样就会产生 Alt+Enter的组合效果，这样也会产生你不要想的结果（如，一个程序全屏，这种情况我也遇到）。那么，请问怎样做才能避免这种情况？