将外部程序嵌入到本窗口运行

注意（要先打开外部程序才可以嵌入）

句柄 ＝ FindWindow (“Shell_TrayWnd”, 字符 (0))
句柄 ＝ FindWindowEx (句柄, 0, “TrayNotifyWnd”, 字符 (0))
句柄 ＝ FindWindowEx (句柄, 0, “SysPager”, 字符 (0))
句柄 ＝ FindWindowEx (句柄, 0, “ToolbarWindow32”, 字符 (0))
输出调试文本 (句柄)
A ＝ 取所有窗口列表 () ' 取得当前所有窗口列表
要嵌入的窗口部分名 ＝ 编辑框1.内容
.变量循环首 (1, 取数组成员数 (A), 1, C)
.如果真 (寻找文本 (取窗口标题 (到整数 (A [C])), 要嵌入的窗口部分名, , 假) ≠ -1)
B ＝ 到整数 (A [C]) ' 获取窗口句柄,
.如果真结束

.变量循环尾 ()
' 以上这部份可以不要,只要指定了一个窗口句柄就可以.
GetWindowRect (取窗口句柄 (), D) ' 取得一个窗口的矩形数据,这里是取本窗口大小
SetParent (B, 取窗口句柄 ()) ' 嵌入窗口
' MoveWindow (B, 0, 0, 0, D.Bottom － D.Top, 1) ' 改变嵌入窗口的位置与大小
SetWindowPos (B, 0, 0, -50, D.右边 － D.左边 － 5, D.底边 － D.顶边 ＋ 18, 64)
BringWindowToTop (取窗口句柄 ()) ' 提升窗口到最前列