delphi 鼠标左右键弹起按下代码-么意思博客

delphi 鼠标左右键弹起按下代码

admin2015-01-13 10:41技术文档, 资源共享897次阅读抢沙发

MOUSEEVENTF_LEFTDOWN：鼠标左键按下
MOUSEEVENTF_LEFTUP：鼠标左键弹起
MOUSEEVENTF_RIGHTDOWN：鼠标右键按下
MOUSEEVENTF_RIGHTUP：鼠标右键弹起

使用以下代码，我们就完成了一次针对0,0点的鼠标左键单击：

var
x,y:integer;
begin
  x:=0;y:=0;
  Mouse_Event(MOUSEEVENTF_LEFTDOWN,x,y,0,0);
  Mouse_Event(MOUSEEVENTF_LEFTUP,x,y,0,0);
end;

使用以下代码，我们就完成了一次针对0,0点的鼠标右键单击：

var
x,y:integer;
begin
  x:=0;y:=0;
  Mouse_Event(MOUSEEVENTF_RIGHTDOWN,x,y,0,0);
  Mouse_Event(MOUSEEVENTF_LEFTUP,x,y,0,0);
end;

标签：delphi