要把一个窗口嵌到另一个窗口中_setparent 把一个窗体嵌入到另一个窗体-优快云博客

本文介绍如何通过单线程管理多个程序运行，并减少桌面空间占用，具体实现包括使用多线程技术与Windows API来最小化和隐藏窗口。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TForm1.Button2Click(Sender: TObject);
var
h: HWND;
begin
h := WIndows.FindWindow(nil, '你所要内嵌的程序的Caption ');
Windows.SetParent(h, Self.Panel1.Handle);
Windows.MoveWindow(h, 0, 0, 200, 200, true);

end;

我使用多线程的目标是减少桌面空间的占用。只需要运行一个多线程程序就可以了。但是，对于网站方面Cookies管理是个问题。

所以，用以上的代码写一个单线程管理多个程序，减少桌面空间的占用。一个点击最少化，其它的窗体也会隐藏。

转自：http://topic.youkuaiyun.com/t/20041030/09/3505314.html

uses shellapi;

procedure TForm1.Button2Click(Sender: TObject);
var hSndrec32: HWND;
begin
hSndrec32 := WIndows.FindWindow(nil, '声音 - 录音机 ');
if hSndrec32 <> 0 then
begin
Windows.SetParent(hSndrec32, Panel1.Handle);
Windows.MoveWindow(hSndrec32, 0, 0,panel1.Width,panel1.Height,true);
end
else
showmessage( '未发现该程序！ ');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
shellexecute(handle, 'open ', 'sndrec32.exe ',nil,nil,sw_shownormal);
end;