在我的表单中捕获一个窗口

Question

我想在我的表单中捕获一个窗口，我该怎么做？我记得看过这样做的代码。它适用于窗口手柄。它的行为类似于WinRAR的提取窗口：

Answer 1

抱歉，英语不是我的主要语言。我实际上找到了我想要的东西（但它没有完全奏效）：

var
  hWindow: hwnd;
begin
  hWindow := FindWindow(nil,PChar(Edit1.Text)); //Edit1.Text is the window's handle
  if hWindow <> 0 then
  begin
    Form1.ParentWindow := hWindow;
  end else
    ShowMessage('Window not found!');
end;

我想要这样的原因是因为一些在全屏幕上运行的应用程序因为我的显示器上的错误刷新率而出现故障。通过这样做，我强制应用程序在已知的“无边界”模式下运行。但它不适用于DirectX应用程序。很抱歉给您带来不便。