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

.如果真 (编辑框1.内容 ＝ “”)
信息框 (“请填入窗口标题！”, 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, 27, D.Right － D.Left － 5, D.Bottom － D.Top － 55, 64)
BringWindowToTop (取窗口句柄 ()) ' 提升窗口到最前列