delphi 使用 mouse_event, 如何模拟鼠标 拖动另一个程序 由下往上滚动。代码如何写？

以下是使用 Delphi 的 mouse_event 函数模拟鼠标拖动另一个程序由下往上滚动的示例代码：

const
  MOUSEEVENTF_WHEEL = $0800;
  WHEEL_DELTA = 120;

procedure ScrollUp(hWnd: HWND);
var
  pt: TPoint;
begin
  GetCursorPos(pt);
  ScreenToClient(hWnd, pt);
  mouse_event(MOUSEEVENTF_WHEEL, 0, 0, WHEEL_DELTA, hWnd);
  mouse_event(MOUSEEVENTF_WHEEL, 0, 0, WHEEL_DELTA, hWnd);
  SetCursorPos(pt.X, pt.Y);
end;

procedure SimulateDragScroll(hWnd: HWND);
var
  pt: TPoint;
begin
  // 按下鼠标左键
  GetCursorPos(pt);
  ScreenToClient(hWnd, pt);
  mouse_event(MOUSEEVENTF_LEFTDOWN, pt.X, pt.Y, 0, hWnd);
  
  // 模拟鼠标拖动
  for i := 1 to 10 do
  begin
    pt.Y := pt.Y - 10; // 逐渐向上拖动
    mouse_event(MOUSEEVENTF_MOVE, pt.X, pt.Y, 0, hWnd);
    ScrollUp(hWnd); // 模拟滚动
    Sleep(100); // 等待一段时间，使滚动更加流畅
  end;
  
  // 松开鼠标左键
  mouse_event(MOUSEEVENTF_LEFTUP, pt.X, pt.Y, 0, hWnd);
end;

调用 `SimulateDragScroll` 函数时，需要传入要拖动滚动条的另一个程序的主窗口句柄 `hWnd`。该函数会模拟鼠标拖动操作，并在拖动过程中调用 `ScrollUp` 函数模拟滚动。具体来说，`ScrollUp` 函数会模拟向上滚动两次，每次滚动 `WHEEL_DELTA` 的距离。拖动结束后，释放鼠标左键。