procedure TForm1.Button1Click(Sender: TObject); var pt:TPoint; x,y:double; begin pt.X:=Button2.Left+Button2.Width div 2; pt.Y:=Button2.Top+Button2.Height div 2; pt:=ClientToScreen(pt); pt.X:=65535 div 1024 * pt.X; pt.Y:=65535 div 768 * pt.Y ; //1024*768是你的屏幕分辨率 mouse_event(MOUSEEVENTF_MOVE or MOUSEEVENTF_ABSOLUTE,pt.X,pt.Y,0,0); mouse_event(MOUSEEVENTF_LEFTDOWN,pt.X,pt.Y,0,0); mouse_event(MOUSEEVENTF_LEFTUP,pt.X,pt.Y,0,0); end;
能不能象DOS一样,用键盘缓冲区或鼠标缓冲区什么的?
http://www.vckbase.com/sourcecode/system/index.html:调皮的鼠标
var
pt:TPoint;
x,y:double;
begin
pt.X:=Button2.Left+Button2.Width div 2;
pt.Y:=Button2.Top+Button2.Height div 2;
pt:=ClientToScreen(pt); pt.X:=65535 div 1024 * pt.X;
pt.Y:=65535 div 768 * pt.Y ;
//1024*768是你的屏幕分辨率
mouse_event(MOUSEEVENTF_MOVE or MOUSEEVENTF_ABSOLUTE,pt.X,pt.Y,0,0);
mouse_event(MOUSEEVENTF_LEFTDOWN,pt.X,pt.Y,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,pt.X,pt.Y,0,0);
end;