Delphi中模拟鼠标操作

procedure TMainFrom.imgResultMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
Point:TPoint;
begin
  GetCursorPos(Point);//获取当前鼠标位置
  SetCursorPos(Point.X-510,Point.Y);//移动鼠标
  Mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);//模拟鼠标按下左键后松开
  Mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
  SetCursorPos(Point.X,Point.Y);//返回原来的位置
end;

end.

模拟键盘我们用Keybd_event这个api函数 
　　先介绍一下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函数 
　　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；鼠标单击　完也要松开， 不然可能影响程序的功能。