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

【问题标题】：Capture a window inside my form在我的表单中捕获一个窗口
【发布时间】：2013-05-19 20:18:59
【问题描述】：

我想在我的表单中捕获一个窗口，我该怎么做？我记得看到一个这样做的代码。它与窗口句柄一起工作。它的行为有点像 WinRAR 的提取窗口：

【问题讨论】：

将 Parent 属性设置为“已捕获”表单
“捕获”是什么意思？您已经展示了 Winrar 提取窗口的两张图片，但这并没有告诉我它的行为是什么。请用文字来描述你想要什么。

【解决方案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 应用程序。很抱歉给您带来不便。

【讨论】：