多屏幕截图 - 定位鼠标光标

Question

多屏幕截图 - 定位鼠标光标

3

我有一个过程，可以截取一个显示器的屏幕截图，可选择将鼠标指针包含在快照中。原始函数仅适用于一个显示器。当绘制鼠标指针时，它目前只在主显示器上正确显示。但是，我无法弄清如何将其定位在其他任何显示器上。请参见此过程末尾的注释。

procedure ScreenShot(var Bitmap: TBitmap; const MonitorNum: Integer;
  const DrawCursor: Boolean; const Quality: TPixelFormat);
var
  DC: HDC;
  C: TCanvas;
  R: TRect;
  CursorInfo: TCursorInfo;
  Icon: TIcon;
  IconInfo: TIconInfo;
  M: TMonitor;
  CP: TPoint;
begin
  M:= Screen.Monitors[MonitorNum];
  DC:= GetDC(GetDesktopWindow);
  try
    C:= TCanvas.Create;
    try
      C.Handle:= DC;
      R:= M.BoundsRect;
      Bitmap.Width:= R.Width;
      Bitmap.Height:= R.Height;
      Bitmap.PixelFormat:= Quality;
      Bitmap.Canvas.CopyRect(Rect(0,0,R.Width,R.Height), C, R);
    finally
      C.Free;
    end;
  finally
    ReleaseDC(GetDesktopWindow, DC);
  end;
  if DrawCursor then begin
    R:= Bitmap.Canvas.ClipRect;
    Icon:= TIcon.Create;
    try
      CursorInfo.cbSize:= SizeOf(CursorInfo);
      if GetCursorInfo(CursorInfo) then
      if CursorInfo.Flags = CURSOR_SHOWING then
      begin
        Icon.Handle:= CopyIcon(CursorInfo.hCursor);
        if GetIconInfo(Icon.Handle, IconInfo) then
        begin
          CP:= CursorInfo.ptScreenPos;

          //Transition mouse position...?
          CP.X:= CP.X + M.Left;
          CP.Y:= CP.Y + M.Top;  //No difference?

          Bitmap.Canvas.Draw(
            CP.X - Integer(IconInfo.xHotspot) - R.Left,
            CP.Y - Integer(IconInfo.yHotspot) - R.Top,
            Icon);
        end;
      end;
    finally
      Icon.Free;
    end;
  end;
end;

我应该如何根据我使用的显示器正确地转换鼠标位置？

- Jerry Dodge

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- David Heffernan · Accepted Answer

您正在将屏幕坐标

 MonitorRect.Left 映射到位图坐标 0 。同样， MonitorRect.Top 映射到 0 。因此，如果光标的屏幕位置为 CursorPos ，则将其映射到 CursorPos.X-MonitorRect.Left 和 CursorPos.Y-MonitorRect.Top 。然后您还需要考虑热点，但是您似乎已经知道如何做了。
上述映射对所有监视器都适用。
请注意，我使用自己的符号，因为我发现您的单个字母变量具有误导性。更不用说这些变量的含义在函数期间会发生变化。我看着你， R 。那总是带来痛苦的食谱。
另外，您是否需要删除调用 GetIconInfo 时交给您的位图句柄？一些错误检查也不会错过。