.版本 2 .支持库 spec .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 .局部变量 Device, DISPLAY_DEVICEA .局部变量 DEVMODE, 短整数型, , "61" .局部变量 设备名称, 文本型 .局部变量 色深, 短整数型 .局部变量 屏幕宽度, 短整数型 .局部变量 屏幕高度, 短整数型 .局部变量 屏幕刷新率, 短整数型 .局部变量 i, 整数型 Device.cb ＝ 420 .计次循环首 (系统_取屏幕数量 (), i) EnumDisplayDevicesA (0, i － 1, Device, 1) 设备名称 ＝ 到文本 (Device.DeviceName) EnumDisplaySettingsA (取指针文本_ (设备名称), -1, DEVMODE [1]) 色深 ＝ DEVMODE [53] 屏幕宽度 ＝ DEVMODE [55] 屏幕高度 ＝ DEVMODE [57] 屏幕刷新率 ＝ DEVMODE [61] 调试输出 (色深, 屏幕宽度, 屏幕高度, 屏幕刷新率) .计次循环尾 ()