停靠/取消停靠时第三方嵌入程序窗口句柄失效问题求助

我之前遇到过类似的VCL停靠场景下第三方窗口丢失的问题，咱们先拆解核心原因，再给出可行的解决方案：

一、问题根源解析 #

1. VCL控件句柄重建机制
   当你把fPanelSonar停靠到PageControl时，VCL的停靠框架会触发容器控件（比如你的pSonar面板）的句柄销毁重建——这是VCL应对布局变更、父容器切换的常见行为。你之前保存的hdlPing360的父句柄是pSonar的旧句柄，一旦旧句柄被销毁，Ping Viewer的窗口就会失去有效父窗口，Windows会自动把它的父窗口重置为桌面窗口（GetDesktopWindow()），同时可能将其设为隐藏状态，导致你看不到它，且原句柄彻底失效。

2. FindWindow/FindWindowEx失效的原因
   Ping Viewer的窗口已经被重新父化到桌面，再从pSonar的新句柄下去查找自然找不到；另外部分第三方程序在窗口被重新父化后，可能会修改窗口标题或内部控件结构，也会导致按标题查找失败。

3. 进程ID找句柄失败的问题
   你现有的方法只是通过进程名获取PID，但没有正确枚举该进程下的所有窗口。一个进程可能有多个窗口（比如隐藏的辅助窗口），你需要精准定位到Ping Viewer的主窗口句柄。

二、分步解决方案 #

1. 保存Ping Viewer的进程ID而非窗口句柄 #

窗口句柄可能失效，但只要进程在运行，PID就不会改变。启动Ping Viewer时直接从ShellExecuteEx的返回结果中获取PID，比通过进程名查找更可靠：

// 在fPanelSonar中添加私有变量保存PID
private
  fPingViewerPID: DWORD;

// 修改启动Ping Viewer的代码
var 
  i : Integer; 
  ExecutePingViewer : string; 
  sePingViewer: TShellExecuteInfo; 
begin 
  Timer1.Enabled := False; 
  fPanelSonar.hdlPing360 := FindWindow(nil, PChar('Ping Viewer - v2.0.4')); 
  if fPanelSonar.hdlPing360 = 0 then begin 
    ExecutePingViewer:='C:\Program Files (x86)\Oceanvault\pingviewer_release\deploy\pingviewer.exe'; 
    FillChar(sePingViewer, SizeOf(sePingViewer), 0) ; 
    sePingViewer.cbSize := SizeOf(TShellExecuteInfo) ; 
    with sePingViewer do begin 
      fMask := SEE_MASK_NOCLOSEPROCESS; 
      Wnd := 0; 
      lpFile := PChar(ExecutePingViewer) ; 
      nShow := SW_HIDE; 
    end; 
    if ShellExecuteEx(@sePingViewer) then begin 
      // 等待程序初始化完成，避免FindWindow找不到
      WaitForInputIdle(sePingViewer.hProcess, 5000);
      // 保存进程ID
      fPingViewerPID := GetProcessId(sePingViewer.hProcess);
      CloseHandle(sePingViewer.hProcess); // 关闭进程句柄释放资源
      
      fPanelSonar.hdlPing360 := FindWindow(nil, PChar('Ping Viewer - v2.0.4')); 
      Windows.SetParent(hdlPing360, pSonar.Handle); 
      ShowWindow(hdlPing360, SW_SHOWMAXIMIZED); 
    end else ShowMessage('Error loading Ping360!') ; 
  end;

2. 实现按进程ID查找窗口句柄的函数 #

通过EnumWindows枚举所有顶层窗口，匹配进程ID找到Ping Viewer的主窗口：

function EnumWindowsByPID(hWnd: HWND; lParam: LPARAM): BOOL; stdcall;
var
  PID: DWORD;
begin
  GetWindowThreadProcessId(hWnd, @PID);
  // 匹配目标进程ID，找到后保存句柄并停止枚举
  if PID = PDWORD(lParam)^ then begin
    PDWORD(lParam + SizeOf(DWORD))^ := hWnd;
    Result := False;
  end else begin
    Result := True;
  end;
end;

function GetPingViewerWindowHandle(PID: DWORD): HWND;
var
  Params: array[0..1] of DWORD;
begin
  Result := 0;
  if PID = 0 then Exit;
  
  Params[0] := PID;
  Params[1] := 0;
  EnumWindows(@EnumWindowsByPID, LPARAM(@Params));
  Result := Params[1];
end;

3. 在停靠/句柄重建事件中重置父窗口 #

监听pSonar的OnHandleCreated事件（句柄重建时触发），以及fPanelSonar的OnDock/OnUndock事件，在这些时机重新设置Ping Viewer的父窗口：

procedure TfPanelSonar.pSonarHandleCreated(Sender: TObject);
var
  hPingWnd: HWND;
begin
  if fPingViewerPID = 0 then Exit;
  
  hPingWnd := GetPingViewerWindowHandle(fPingViewerPID);
  if IsWindow(hPingWnd) then begin
    // 重新设置父窗口
    Windows.SetParent(hPingWnd, pSonar.Handle);
    // 最大化并调整窗口样式（可选，去掉标题栏避免布局冲突）
    SetWindowLongPtr(hPingWnd, GWL_STYLE, GetWindowLongPtr(hPingWnd, GWL_STYLE) and not (WS_CAPTION or WS_THICKFRAME));
    ShowWindow(hPingWnd, SW_SHOWMAXIMIZED);
    // 同步面板大小
    SetWindowPos(hPingWnd, 0, 0, 0, pSonar.ClientWidth, pSonar.ClientHeight, SWP_NOZORDER or SWP_NOACTIVATE);
  end;
end;

// 同步面板大小变化，避免Ping Viewer布局错位
procedure TfPanelSonar.pSonarResize(Sender: TObject);
var
  hPingWnd: HWND;
begin
  if fPingViewerPID = 0 then Exit;
  
  hPingWnd := GetPingViewerWindowHandle(fPingViewerPID);
  if IsWindow(hPingWnd) then begin
    SetWindowPos(hPingWnd, 0, 0, 0, pSonar.ClientWidth, pSonar.ClientHeight, SWP_NOZORDER or SWP_NOACTIVATE);
  end;
end;

4. 补充清理逻辑 #

在fPanelSonar关闭时，终止Ping Viewer进程，避免残留：

procedure TfPanelSonar.FormClose(Sender: TObject; var Action: TCloseAction);
var
  hProcess: THandle;
begin
  if fPingViewerPID = 0 then Exit;
  
  hProcess := OpenProcess(PROCESS_TERMINATE, False, fPingViewerPID);
  if hProcess <> 0 then begin
    TerminateProcess(hProcess, 0);
    CloseHandle(hProcess);
  end;
end;

三、关键注意事项 #

• 不要依赖FindWindow作为长期获取窗口句柄的方式，进程ID是更稳定的标识；
• 使用WaitForInputIdle替代Sleep，能更可靠地等待第三方程序初始化完成；
• 每次操作窗口句柄前用IsWindow检查有效性，避免触发Windows API错误；
• 调整第三方窗口样式时，根据Ping Viewer的实际表现灵活修改，避免破坏其正常功能。

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