delphi之鼠标模拟

鼠标模拟一般是调用API函数mouse_event

procedure mouseMoveTo(x,y:integer);//移动到位置(x,y)
begin
  SetCursorPos(x,y);
end;

procedure mouseLeftClick; //当前位置左键单击
begin
  mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
  mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;

procedure mouseRightClick; //当前位置右键单击
begin
  mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
  mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);
end;

procedure mouseLeftDoubleClick; //当前位置右键双击
begin
  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);
end;

procedure mouseRightDoubleClick; //当前位置右键双击
begin
  mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
  mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);
  mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
  mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);
end;

转载于:https://www.cnblogs.com/devlyn/archive/2010/08/24/1807190.html