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

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

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

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

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