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

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;