.版本 2 .支持库 spec .程序集 窗口程序集_启动窗口 .程序集变量 窗口控件句柄组, 整数型, , "0" .程序集变量 窗口控件详细组, 控件详细, , "0" .程序集变量 窗口原始尺寸, RECT .子程序 __启动窗口_创建完毕 .局部变量 i, 整数型 .局部变量 rect, RECT 窗口原始尺寸.Right ＝ 取用户区宽度 () 窗口原始尺寸.Bottom ＝ 取用户区高度 () EnumChildWindows (取窗口句柄 (), 到整数 (&处理), 0) .计次循环首 (取数组成员数 (窗口控件句柄组), i) GetWindowRect (窗口控件句柄组 [i], rect) 重定义数组 (窗口控件详细组, 真, 取数组成员数 (窗口控件详细组) ＋ 1) 窗口控件详细组 [取数组成员数 (窗口控件详细组)].hwnd ＝ 窗口控件句柄组 [i] 窗口控件详细组 [取数组成员数 (窗口控件详细组)].l ＝ rect.Left － 左边 窗口控件详细组 [取数组成员数 (窗口控件详细组)].t ＝ rect.Top － 顶边 窗口控件详细组 [取数组成员数 (窗口控件详细组)].r ＝ rect.Right － rect.Left 窗口控件详细组 [取数组成员数 (窗口控件详细组)].b ＝ rect.Bottom － rect.Top .计次循环尾 () 调试输出 (“”) .子程序 处理, 整数型 .参数 n, 整数型 加入成员 (窗口控件句柄组, n) 返回 (n) .子程序 __启动窗口_尺寸被改变 .局部变量 dc, 整数型 .局部变量 dpi, 整数型 .局部变量 sc_x, 小数型 .局部变量 sc_y, 小数型 .局部变量 i, 整数型 sc_x ＝ 取用户区宽度 () ÷ 窗口原始尺寸.Right sc_y ＝ 取用户区高度 () ÷ 窗口原始尺寸.Bottom 调试输出 (sc_x, sc_y) .计次循环首 (取数组成员数 (窗口控件句柄组), i) MoveWindow (窗口控件详细组 [i].hwnd, 窗口控件详细组 [i].l × sc_x, 窗口控件详细组 [i].t × sc_y, 窗口控件详细组 [i].r × sc_x, 窗口控件详细组 [i].b × sc_y, 1) .计次循环尾 ()