delphi 语言向其他窗口模拟鼠标移动与点击操作

在 Delphi 中，可以使用 Windows API 中的相关函数来模拟鼠标移动与点击操作。以下是一个示例代码，它使用了`mouse_event`函数，它可以模拟鼠标的各种事件。

// 引入 Windows API
uses Windows;

// 模拟鼠标移动
procedure SimulateMouseMove(X, Y: Integer);
begin
  mouse_event(MOUSEEVENTF_MOVE, X, Y, 0, 0);
end;

// 模拟鼠标左键点击
procedure SimulateMouseLeftClick(X, Y: Integer);
begin
  mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, X, Y, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTDOWN, X, Y, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, X, Y, 0, 0);
end;

// 模拟鼠标右键点击
procedure SimulateMouseRightClick(X, Y: Integer);
begin
  mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, X, Y, 0, 0);
  mouse_event(MOUSEEVENTF_RIGHTDOWN, X, Y, 0, 0);
  mouse_event(MOUSEEVENTF_RIGHTUP, X, Y, 0, 0);
end;

其中，`X`和`Y`是鼠标移动或点击的目标位置坐标，`MOUSEEVENTF_MOVE`表示移动鼠标，`MOUSEEVENTF_LEFTDOWN`和`MOUSEEVENTF_LEFTUP`表示鼠标左键按下和释放，`MOUSEEVENTF_RIGHTDOWN`和`MOUSEEVENTF_RIGHTUP`表示鼠标右键按下和释放。注意，`MOUSEEVENTF_ABSOLUTE`需要与`MOUSEEVENTF_MOVE`组合使用，以确保鼠标移动到正确的位置。

需要注意的是，模拟鼠标移动与点击操作可能会对用户造成困扰，因此应该尽量避免在不必要的情况下使用。