Written on 2009年1月7日 @ 17:17 | by spirit | Tags: delphi  源码   | 浏览:

      Delphi可将鼠标定义到位置屏幕的任何位置,代码如下:

 var
    x,y:integer;
begin
  x:=   form1.Left+210;
  y:=   form1.Top+webbrowser1.Top+396;
  SetCursorPos(x,y);
  Mouse_Event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0);
  Mouse_Event(MOUSEEVENTF_LEFTUP,X,Y,0,0);

end;


若转载请注明出处: Spirit's Home
本文地址: http://www.7788sky.cn/post/Delphi_mouse_move.html
  1. 0 Response to “Delphi模拟鼠标点击、屏幕、窗口定位”

Post a Comment

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。