.版本 2 .程序集 窗口程序集1, , , ' 本源码来自三叶资源网(www.sanye.cx) .子程序 __启动窗口_创建完毕 .局部变量 i, 整数型 .局部变量 t, 文本型 .局部变量 q, 文本型 .局部变量 ReVal, 整数型 .局部变量 ModeCube, DevMode, , "1" .局部变量 DStr, 文本型, , "0" i ＝ 1 .循环判断首 () ReVal ＝ 取显示属性 (0, i, ModeCube [i]) .如果真 (ReVal ＝ 1) q ＝ 到文本 (ModeCube [i].dmPelsWidth) ＋ “×” ＋ 删首尾空 (到文本 (ModeCube [i].dmPelsHeight)) .如果真 (ModeCube [i].dmBitsPerPel ＝ 4) q ＝ q ＋ “ ” ＋ “刷新率:” ＋ “ ” ＋ 到文本 (ModeCube [i].dmDisplayFrequency) ＋ “ ” ＋ “16色” .如果真结束 .如果真 (ModeCube [i].dmBitsPerPel ＝ 8) q ＝ q ＋ “ ” ＋ “刷新率:” ＋ “ ” ＋ 到文本 (ModeCube [i].dmDisplayFrequency) ＋ “ ” ＋ “256色” .如果真结束 .如果真 (ModeCube [i].dmBitsPerPel ＝ 16) q ＝ q ＋ “ ” ＋ “刷新率:” ＋ “ ” ＋ 到文本 (ModeCube [i].dmDisplayFrequency) ＋ “ ” ＋ “16位增强色” .如果真结束 .如果真 (ModeCube [i].dmBitsPerPel ＝ 24) q ＝ q ＋ “ ” ＋ “刷新率:” ＋ “ ” ＋ 到文本 (ModeCube [i].dmDisplayFrequency) ＋ “ ” ＋ “24位真彩” .如果真结束 .如果真 (ModeCube [i].dmBitsPerPel ＝ 32) q ＝ q ＋ “ ” ＋ “刷新率:” ＋ “ ” ＋ 到文本 (ModeCube [i].dmDisplayFrequency) ＋ “ ” ＋ “32位真彩” .如果真结束 .如果真 (q ≠ t) ' 本源码来自三叶资源网(www.sanye.cx) 加入成员 (DStr, q) 列表框1.加入项目 (q, ) t ＝ DStr [取数组成员数 (DStr)] .如果真结束 i ＝ i ＋ 1 重定义数组 (ModeCube, 真, i) .如果真结束 .循环判断尾 (ReVal ＝ 1) 当前信息 () .子程序 当前信息 .局部变量 q, 文本型 .局部变量 ReVal, 整数型 .局部变量 ModeCube, DevMode ReVal ＝ 取显示属性 (0, -1, ModeCube) .如果真 (ReVal ＝ 1) q ＝ 到文本 (ModeCube.dmPelsWidth) ＋ “×” ＋ 删首尾空 (到文本 (ModeCube.dmPelsHeight)) .如果真 (ModeCube.dmBitsPerPel ＝ 4) q ＝ q ＋ “ 刷新率:” ＋ 到文本 (ModeCube.dmDisplayFrequency) ＋ “ 16色” .如果真结束 .如果真 (ModeCube.dmBitsPerPel ＝ 8) q ＝ q ＋ “ 刷新率:” ＋ 到文本 (ModeCube.dmDisplayFrequency) ＋ “ 256色” .如果真结束 .如果真 (ModeCube.dmBitsPerPel ＝ 16) q ＝ q ＋ “ 刷新率:” ＋ 到文本 (ModeCube.dmDisplayFrequency) ＋ “ 16位增强色” .如果真结束 .如果真 (ModeCube.dmBitsPerPel ＝ 24) q ＝ q ＋ “ 刷新率:” ＋ 到文本 (ModeCube.dmDisplayFrequency) ＋ “ 24位真彩” .如果真结束 .如果真 (ModeCube.dmBitsPerPel ＝ 32) q ＝ q ＋ “ 刷新率:” ＋ 到文本 (ModeCube.dmDisplayFrequency) ＋ “ 32位真彩” .如果真结束 信息框 (q, 0, “当前分辨率”) .如果真结束 ' 本源码来自三叶资源网(www.sanye.cx) .子程序 _按钮1_被单击 .局部变量 DevM, DevMode .局部变量 临时文本, 文本型, , "0" .局部变量 临时文本2, 文本型, , "0" .局部变量 返回值, 整数型 DevM.dmFields ＝ #DM_PELSWIDTH ＋ #DM_PELSHEIGHT ＋ #DM_BITSPERPEL ＋ #DM_DISPLAYFREQUENCY 取显示属性 (0, -1, DevM) 临时文本 ＝ 分割文本 (列表框1.取项目文本 (列表框1.现行选中项), “ ”, ) 临时文本2 ＝ 分割文本 (临时文本 [1], “×”, ) DevM.dmPelsWidth ＝ 到数值 (临时文本2 [1]) DevM.dmPelsHeight ＝ 到数值 (临时文本2 [2]) .如果 (临时文本 [4] ＝ “16色”) DevM.dmBitsPerPel ＝ 4 .否则 .如果 (临时文本 [4] ＝ “256色”) DevM.dmBitsPerPel ＝ 8 .否则 .如果 (临时文本 [4] ＝ “16位增强色”) DevM.dmBitsPerPel ＝ 16 .否则 .如果 (临时文本 [4] ＝ “24位真彩”) DevM.dmBitsPerPel ＝ 24 .否则 .如果真 (临时文本 [4] ＝ “32位真彩”) DevM.dmBitsPerPel ＝ 32 .如果真结束 .如果结束 .如果结束 .如果结束 ' 本源码来自三叶资源网(www.sanye.cx) .如果结束 DevM.dmDisplayFrequency ＝ 到数值 (临时文本 [3]) 返回值 ＝ 设置显示属性 (DevM, #CDS_UPDATEREGISTRY) 输出调试文本 (到文本 (返回值))