用Delphi模拟键盘输入/鼠标点击

摘自:原创
作者:

模拟键盘我们用Keybd_event这个api函数，模拟鼠标按键用mouse_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);  　　

　　

mouse_event最好配合setcursorpos(x,y)函数一起使用，先定位鼠标,再产生鼠标事件.
mouse_event有五个参数:
第一个为选项标志，为MOUSEEVENTF_LEFTDOWN时表示左键按下，为MOUSEEVENTF_LEFTUP表示左键松开，向系统发