Written on 2009年1月7日 @ 17:17 | by spirit | Tags: delphi 源码 | 浏览:
若转载请注明出处: Spirit's Home
本文地址: http://www.7788sky.cn/post/Delphi_mouse_move.html
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
0 Response to “Delphi模拟鼠标点击、屏幕、窗口定位”