在给定监视器上查找第二个窗口

Question

我正在寻找以下问题的解决方案。 我有 2 个显示器，我想在某个显示器上找到第二个窗口。

我需要第二个窗口的原因是因为在那台显示器上我有一个正在运行的应用程序，它总是在顶部，我不需要那个窗口，所以之后的那个。

隐藏和显示最顶部不是一个选项，因为这会导致闪烁。

任何帮助将不胜感激。

编辑

由于不够清楚，我将尝试解释得更好。

我有 2 台显示器，M1 和 M2，其中 M1 是我的主显示器。 有一个应用程序在运行，它总是在最上面，这是我自己制作的一个应用程序。

我想在 M1 上找到最顶层的窗口，但忽略了我自己的应用程序。 所以排在第二位。

为了更清楚，您在 delphi 中制作应用程序，当您调试时您的表单会弹出，但我正在寻找的是返回 RAD Studio 的 HWND 而不是您自己的表单。

希望现在能更好地理解。

附：大卫明白了他最后评论的意思。

Answer 1

如果我理解你的问题是正确的，你可能会使用这样的东西：

TYPE
  TEnumParm = RECORD
                Monitor : TMonitor;
                ZOrder  : Cardinal;
                Handle  : HWND;
              PUBLIC
                CLASS FUNCTION Create(M : TMonitor ; Z : Cardinal) : TEnumParm; static;
                PROCEDURE   Initialize(M : TMonitor ; Z : Cardinal);
              END;
  PEnumParm = ^TEnumParm;

PROCEDURE TEnumParm.Initialize(M : TMonitor ; Z : Cardinal);
  BEGIN
    Monitor:=M; ZOrder:=Z; Handle:=0
  END;

CLASS FUNCTION TEnumParm.Create(M : TMonitor ; Z : Cardinal) : TEnumParm;
  BEGIN
    Result.Initialize(M,Z)
  END;

FUNCTION Enumerator(Handle : HWND ; Parm : PEnumParm) : BOOL; stdcall;
  VAR
    Rect    : TRect;

  BEGIN
    Result:=GetWindowRect(Handle,Rect);
    IF Result AND Parm^.Monitor.BoundsRect.IntersectsWith(Rect) THEN BEGIN
      DEC(Parm^.ZOrder);
      Result:=(Parm^.ZOrder>0);
      IF NOT Result THEN Parm^.Handle:=Handle
    END
  END;

FUNCTION FindWindowOnMonitor(M : TMonitor ; ZOrder : Cardinal = 1) : HWND;
  VAR
    P   : TEnumParm;

  BEGIN
    P.Initialize(M,ZOrder);
    EnumWindows(@Enumerator,LPARAM(@P));
    Result:=P.Handle
  END;

您可能需要调整 Enumerator 函数中完成的过滤，具体取决于您要查找的确切内容（我并不完全清楚），但这可能会让您走上正确的道路。