Delphi应用如何将主窗体置于后台？SO相关问题均聚焦窗体前置

逛Stack Overflow的时候发现大家聊得更多的都是怎么把窗体顶到最前面，但像你说的这种启动器场景——启动完其他程序就乖乖退到后台——确实也是刚需。刚好你已经有了启动程序的代码，我来帮你完善一下，加上让主窗体退到后台的逻辑：

核心思路 #

要让主窗体退到后台，核心就是把系统焦点从咱们的窗体转移到别的地方（比如刚启动的目标程序，或者桌面），同时调整自身的显示优先级。

优化你的启动代码 #

你原来的Run方法已经能启动程序了，我们可以在启动成功后，添上让主窗体“让位”的逻辑。这里我加了等待目标程序窗口创建、查找窗口并激活，最后处理主窗体的步骤：

procedure TLauncherForm.Run(const fileName: string);
var
  sinf: TStartupInfo;
  pinf: TProcessInformation;
  TargetWnd: HWND;
  WaitResult: DWORD;
begin
  sinf := default(TStartupInfo);
  sinf.cb := SizeOf(sinf);
  // 加上启动窗口的显示设置，确保目标程序正常弹出
  sinf.dwFlags := STARTF_USESHOWWINDOW;
  sinf.wShowWindow := SW_SHOWNORMAL;

  if CreateProcess(PWideChar(fileName), nil, nil, nil, False, 0, nil, PWideChar(ExtractFilePath(fileName)), sinf, pinf) then
  begin
    try
      // 等目标程序加载完窗口，最多等5秒，避免刚启动就找窗口找不到
      WaitResult := WaitForInputIdle(pinf.hProcess, 5000);
      if WaitResult = 0 then
      begin
        // 根据进程ID找到目标程序的主窗口
        TargetWnd := FindWindowByProcessId(pinf.dwProcessId);
        if TargetWnd <> 0 then
        begin
          // 把目标窗口激活到前台，抢过焦点
          SetForegroundWindow(TargetWnd);
          // 咱们的主窗体可以选择直接最小化
          WindowState := wsMinimized;
          // 要是不想最小化，只想默默待在后台，就用下面两行替换上面的WindowState设置
          // SetWindowPos(Handle, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
          // ShowWindow(Handle, SW_SHOWNA); // 显示但不抢占焦点
        end
        else
        begin
          // 找不到目标窗口的话，就把焦点给桌面，自己最小化
          SetForegroundWindow(GetDesktopWindow);
          WindowState := wsMinimized;
        end;
      end
      else
      begin
        // 等超时了，直接把自己最小化就行
        WindowState := wsMinimized;
      end;
    finally
      // 别忘了关闭进程和线程的句柄，不然会有资源泄漏
      CloseHandle(pinf.hThread);
      CloseHandle(pinf.hProcess);
    end;
  end
  else
  begin
    // 启动失败的提示，你可以根据需求调整
    ShowMessage('启动程序失败啦！');
  end;
end;

// 辅助函数：根据进程ID查找对应的窗口
function FindWindowByProcessId(ProcessId: DWORD): HWND;
var
  WindowHandle: HWND;
begin
  Result := 0;
  WindowHandle := GetTopWindow(0);
  while WindowHandle <> 0 do
  begin
    if GetWindowThreadProcessId(WindowHandle, @ProcessId) <> 0 then
    begin
      Result := WindowHandle;
      Break;
    end;
    WindowHandle := GetNextWindow(WindowHandle, GW_HWNDNEXT);
  end;
end;

关键API解释 #

• SetForegroundWindow：把指定窗口设为前台，这样系统焦点就过去了，咱们的主窗体自然就到后台了。
• SetWindowPos：通过HWND_BOTTOM参数把窗体放到所有窗口的Z序底部，再配合SW_SHOWNA显示但不激活，就能实现不最小化但在后台的效果。
• WaitForInputIdle：等目标进程进入空闲状态，确保它的窗口已经创建好了，不然可能会出现找不到窗口的情况。

小提醒 #

• 有些程序启动后会弹出多个窗口，要是FindWindowByProcessId不好用，你可以改成根据窗口标题查找（用FindWindow函数）。
• 要是不需要等目标程序，也可以直接把主窗体最小化，或者直接把焦点切到桌面窗口。

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