获取多个屏幕的分辨率

易语言 2020-03-23 16:43:54

获取多个屏幕的分辨率

.计次循环首 (系统_取屏幕数量 (), i)
EnumDisplayDevicesA (0, i - 1, Device, 1)
设备名称 = 到文本 (Device.DeviceName)
EnumDisplaySettingsA (取指针文本_ (设备名称), -1, DEVMODE [1])
色深 = DEVMODE [53]
屏幕宽度 = DEVMODE [55]
屏幕高度 = DEVMODE [57]
屏幕刷新率 = DEVMODE [61]
调试输出 (色深, 屏幕宽度, 屏幕高度, 屏幕刷新率)
.计次循环尾 ()