另类强行关闭程序窗口

复制窗口组件 (分组框1, a)
窗口_置父 (到整数 (编辑框1.内容), a.取窗口句柄 ())
a.销毁 ()