delphi 在桌面屏幕上模拟鼠标单击

最新推荐文章于 2023-02-18 17:21:26 发布

转载最新推荐文章于 2023-02-18 17:21:26 发布 · 943 阅读

本文介绍了一种使用Delphi在指定坐标模拟鼠标点击的方法。通过调整坐标参数，可以在桌面的不同位置模拟鼠标的左键和右键点击。此方法涉及获取当前鼠标位置、设定新的鼠标位置并触发点击事件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

delphi 在桌面屏幕上模拟鼠标单击

procedure TFrmUnicom.Button1Click(Sender: TObject);
var
  oldPoint, newPoint: TPoint;
begin
  GetCursorPos(&oldPoint); // 保存当前鼠标位置。

  newPoint.x := 1050;
  newPoint.y := 325;
  MouseClick(newPoint); // 模拟放开鼠标左键。
  application.ProcessMessages;
  sleep(1000);
  application.ProcessMessages;
  newPoint.x := 1050;
  newPoint.y := 747;
  MouseClick(newPoint); // 模拟放开鼠标左键。
end;

procedure TFrmUnicom.MouseClick(newPoint: TPoint);
begin
  SetCursorPos(newPoint.x, newPoint.y);
  // 设置目的地位置。
  mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);
  // 模拟按下鼠标右键。
  mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);
  // 模拟放开鼠标右键。
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  // 模拟按下鼠标左键。
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;