记事本嵌入在本窗口运行

运行 (“notepad.exe”, 假, )
hwnd ＝ FindWindow (“Notepad”, “无标题 - 记事本”)
.判断循环首 (hwnd ＝ 0)
hwnd ＝ FindWindow (“Notepad”, “无标题 - 记事本”)
.判断循环尾 ()
SetParent (hwnd, 取窗口句柄 ())
a ＝ 高度 － 取用户区高度 () － 4
SetWindowPos (hwnd, 0, -4, －a, 取用户区宽度 () ＋ 8, 取用户区高度 () ＋ a ＋ 4, 0)