Delphi 11/Windows 11下如何确保应用程序稳定获取焦点？

Windows 10/11系统对SetForegroundWindow函数有严格的权限限制，只有当前进程属于前台进程、用户最近主动操作过该进程等少数场景下，直接调用才会生效，否则只会触发任务栏图标闪烁——这就是你原代码时灵时不灵的原因。

下面是几种能稳定实现窗口前置并获取焦点的方案：

方案一：通过权限授权绕过限制 #

先获取当前前台窗口的进程ID，授权允许当前进程设置前台窗口，再执行前置操作：

procedure ForceForegroundWindow(hWnd: HWND);
var
  ForegroundPID: DWORD;
  CurrentPID: DWORD;
begin
  // 获取当前前台窗口所属进程ID
  GetWindowThreadProcessId(GetForegroundWindow, @ForegroundPID);
  // 获取当前应用进程ID
  CurrentPID := GetCurrentProcessId;
  // 授权当前进程可设置前台窗口
  AllowSetForegroundWindow(ForegroundPID);
  // 恢复窗口（如果处于最小化状态）
  ShowWindow(hWnd, SW_RESTORE);
  // 设置为前台窗口
  SetForegroundWindow(hWnd);
  // 强制窗口获取焦点
  SetFocus(hWnd);
end;

方案二：模拟用户键盘操作触发权限 #

Windows允许在有模拟键盘输入的场景下设置前台窗口，通过模拟Alt键按下再释放，绕过系统限制：

procedure ForceForegroundWindow(hWnd: HWND);
begin
  // 模拟按下并释放Alt键，触发系统允许设置前台窗口
  keybd_event(VK_MENU, 0, 0, 0);
  keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);
  // 恢复窗口状态
  ShowWindow(hWnd, SW_RESTORE);
  // 设置为前台窗口
  SetForegroundWindow(hWnd);
  // 确保窗口获得焦点
  SetFocus(hWnd);
end;

方案三：结合窗口置顶+前置操作 #

先将窗口设置为临时最顶层，再执行前置和焦点设置，最后取消最顶层（可选）：

procedure ForceForegroundWindow(hWnd: HWND);
begin
  // 临时将窗口置为最顶层
  SetWindowPos(hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
  // 恢复窗口（如果最小化）
  ShowWindow(hWnd, SW_RESTORE);
  // 设置为前台窗口
  SetForegroundWindow(hWnd);
  // 取消最顶层（根据业务需求选择是否保留）
  SetWindowPos(hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
  // 强制获取焦点
  SetFocus(hWnd);
end;

替换原代码的调用方式 #

把你原来的setFocus过程替换为：

procedure SetAppFocus;
begin
  if Application.MainForm.Handle <> GetForegroundWindow then
  begin
    ForceForegroundWindow(Application.MainForm.Handle);
  end;
end;

注意事项 #

• 确保Application.MainForm.Handle是有效的窗口句柄（窗口已创建完成）
• 尽量不要频繁调用强制前置逻辑，Windows的限制是为了避免恶意软件干扰用户操作
• 部分Windows 11的特殊场景下，可能需要结合多种方案（比如先模拟Alt键，再执行权限授权+前置操作）才能生效

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