2

这是我用来恢复并将窗口设置为前台的代码。当窗口最小化时，代码工作完美，但是当窗口隐藏在其他窗口后面时，我无法将窗口带到前台，后来我发现它SetForegroundWindow(Handle)一直返回 false。但是，如果我在调试模式下运行程序，则可以将窗口置于前台。我似乎无法弄清楚是什么导致了这种情况发生。

function EnumWindowsCallback(Handle: HWND; lParam: Integer): bool; stdcall;
var
  WID, PID: Integer;
begin
  WID := 0;
  PID := lParam;
  GetWindowThreadProcessId(Handle, @WID);
  if (PID = WID) and IsWindowVisible(Handle) then begin
    ShowWindow(Handle, SW_RESTORE);
    SetForegroundWindow(Handle);
    FlashWindow(Handle, True);
  end;
  Result := True;
end;

function ShowProcessWindow(PID: Integer): boolean;
begin
  Result := EnumWindows(@EnumWindowsCallback, lParam(PID))
end;

其中 PID 是我要恢复并设置为前台的窗口的进程 ID。

更新：我刚刚在文档中读到了这个。会不会有关系？

当用户正在使用另一个窗口时，应用程序不能将一个窗口强制到前台。相反，Windows 会闪烁窗口的任务栏按钮以通知用户。

4

1 回答 1

1

我 SetForegroundWindow(Handle)用以下两行代码替换了它，它可以在我的网站上运行：

SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NoMove or SWP_NoSize);
SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NoMove or SWP_NoSize);
于 2020-12-29T03:09:18.793 回答