Delphi7 向指定窗口发送鼠标单击

您可以使用 Windows API 函数 `PostMessage` 向指定窗口发送鼠标单击消息。具体的步骤如下：

1. 获取目标窗口的句柄，可以使用 `FindWindow` 函数或者 `FindWindowEx` 函数来查找窗口句柄。

2. 构造一个 `MOUSEEVENTF_LEFTDOWN` 和 `MOUSEEVENTF_LEFTUP` 的 `MOUSEINPUT` 结构体数组，表示鼠标左键按下和松开的操作。

3. 构造一个 `INPUT` 结构体数组，其中包含一个 `MOUSEINPUT` 结构体数组，表示鼠标的操作。

4. 使用 `PostMessage` 函数向目标窗口发送 `WM_INPUT` 消息，并将上一步构造好的 `INPUT` 结构体数组作为 `lParam` 参数传递进去。

下面是一个示例代码：

const
  WM_INPUT = $00FF;
  INPUT_MOUSE = 0;
  MOUSEEVENTF_LEFTDOWN = $0002;
  MOUSEEVENTF_LEFTUP = $0004;

type
  TMouseInput = packed record
    dx: LongInt;
    dy: LongInt;
    mouseData: LongInt;
    dwFlags: LongInt;
    time: LongInt;
    dwExtraInfo: ULONG_PTR;
  end;

  TInput = packed record
    case Integer of
      0: (mi: TMouseInput);
  end;

procedure SendMouseClick(hWnd: HWND; x, y: Integer);
var
  input: TInput;
  inputs: array[0..0] of TInput;
begin
  // 构造鼠标操作
  input.mi.dx := x;
  input.mi.dy := y;
  input.mi.dwFlags := MOUSEEVENTF_LEFTDOWN;
  inputs[0] := input;
  SendInput(1, inputs[0], SizeOf(inputs[0]));

  input.mi.dwFlags := MOUSEEVENTF_LEFTUP;
  inputs[0] := input;
  SendInput(1, inputs[0], SizeOf(inputs[0]));

  // 发送消息
  PostMessage(hWnd, WM_INPUT, 0, LPARAM(@inputs));
end;

使用方法：

var
  hWnd: HWND;
begin
  hWnd := FindWindow(nil, '窗口标题');
  if hWnd <> 0 then
    SendMouseClick(hWnd, 100, 100);
end;

以上代码仅供参考，具体实现还需要根据您的具体需求进行修改。