解决Delphi FMX全屏长期运行程序被Windows任务栏/消息遮挡问题

问题根源 #

直接调用SetForegroundWindow失败的核心原因是Windows的焦点保护机制：

• 当程序处于后台时，系统会限制非用户主动触发的SetForegroundWindow调用，防止恶意程序强行抢占焦点。
• IDE调试模式下，调试进程与IDE（前台进程）关联，系统会放宽限制，所以代码能正常工作；直接运行EXE时，程序独立运行，触发定时器时处于后台，调用被系统拦截。

可行解决方案 #

1. 结合窗口置顶与焦点激活 #

先将窗口临时置顶，再尝试激活，同时恢复全屏状态，代码示例：

uses
  Windows;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  NativeHandle: HWND;
  ForegroundThreadID, CurrentThreadID: DWORD;
begin
  NativeHandle := WindowHandleToPlatform(Self.Handle).Wnd;

  // 强制恢复全屏状态
  if (WindowState <> wsFullScreen) or (BorderStyle <> bsNone) then
  begin
    BorderStyle := bsNone;
    WindowState := wsFullScreen;
  end;

  // 临时将窗口置顶
  SetWindowPos(NativeHandle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);

  // 尝试激活前台窗口
  if not SetForegroundWindow(NativeHandle) then
  begin
    // 若直接激活失败，通过AttachThreadInput绕开系统限制
    ForegroundThreadID := GetWindowThreadProcessId(GetForegroundWindow, nil);
    CurrentThreadID := GetCurrentThreadId;
    if AttachThreadInput(CurrentThreadID, ForegroundThreadID, True) then
    begin
      SetForegroundWindow(NativeHandle);
      AttachThreadInput(CurrentThreadID, ForegroundThreadID, False);
    end;
  end;

  // 取消置顶（避免长期霸占置顶层级）
  SetWindowPos(NativeHandle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
end;

2. 优化全屏初始设置 #

确保程序启动时就正确进入无干扰全屏：

• 在FormCreate事件中设置：

  procedure TForm1.FormCreate(Sender: TObject);
  begin
    BorderStyle := bsNone;
    WindowState := wsFullScreen;
    ShowCaption := False;
  end;
  

整体思路评估 #

用定时器轮询的思路是可行的，但可以优化触发时机：

• 不要固定10秒轮询，而是监听窗口的WM_ACTIVATE、WM_WINDOWPOSCHANGED等系统消息，当检测到窗口失去焦点或被遮挡时再执行恢复操作，减少不必要的系统调用。
• 若需要长期稳定运行，建议禁用系统的自动更新、任务栏自动隐藏等可能干扰全屏的系统设置，从源头减少遮挡概率。

内容的提问来源于stack exchange，提问作者user3384674