请问如何用一个窗口包住两个程序~ 我有一个游戏- -,必须用登录器登录,我想用一个窗口包住登录器和游戏主程序~请问用DELPHI如何实现~~~ 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 以绑架“记事本”为例:在窗体的private中定义 hwndOldParent:HWND;hwndNotePad:HWND;将窗口的FormStyle设为fsMDIFormprocedure TForm1.Button1Click(Sender: TObject);begin hwndNotePad:=FindWindow(PChar('Notepad'),0);//获取记事本的窗体句柄 hwndOldParent:=GetParent(hwndNotePad);//记住其“父亲” Windows.SetParent(hwndNotePad,handle);//绑架end;procedure TForm1.FormDestroy(Sender: TObject);begin //交还被“绑架”者给其原来的“父亲”: Windows.SetParent(hwndNotePad,hwndOldParent);end;运行代码前,先运行记事本,然后点击Button1即可将记事本“绑架”到你的窗体内了。 如何使鼠标在一定范围有效 本人求购屏幕画笔源代码 数据库文件内容转为文本 image.canvas清屏问题 Delphi入门问题 求一算法(内详) 为什么刚才删去的记录又复活了?…… 请问一个关于数据库的小问题? RAD Studio 2007 最新的12月更新包安装问题 下载delphi informant 杂志1995至2000年全部内容光盘,请进。该杂志内容极有价值。 我用IdTCPServer和IdTCpclient通讯的时候提示:Missing data provider or data packet 关于fastreport如何实现分组交叉报表的功能。
hwndOldParent:HWND;
hwndNotePad:HWND;将窗口的FormStyle设为fsMDIForm
procedure TForm1.Button1Click(Sender: TObject);
begin
hwndNotePad:=FindWindow(PChar('Notepad'),0);//获取记事本的窗体句柄
hwndOldParent:=GetParent(hwndNotePad);//记住其“父亲”
Windows.SetParent(hwndNotePad,handle);//绑架
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
//交还被“绑架”者给其原来的“父亲”:
Windows.SetParent(hwndNotePad,hwndOldParent);
end;运行代码前,先运行记事本,然后点击Button1即可将记事本“绑架”到你的窗体内了。