请问如何获取当前计算机的所有分辨率、刷新率、色彩？

例如：
在Authorware中alTools插件
result := alGetCurrentDispSet()
获得当前分辨率配置，包含宽、高、色、刷新频率。

result := alGetDispSet()
获得本机所有可用分辨率设置。
如我的机器为
"640x480x8x60\r320x200x8x70\r320x200x8x72\r320x200x8x75\r320x240x8x60\r320x240x8x70\r320x240x8x72\r320x240x8x75\r400x300x8x60\r400x300x8x70\r400x300x8x72\r400x300x8x75\r480x360x8x60\r480x360x8x70\r480x360x8x72\r480x360x8x75\r512x384x8x60\r512x384x8x70\r512x384x8x72\r512x384x8x75\r640x400x8x70\r640x400x8x72\r640x400x8x75\r640x400x8x85\r640x400x8x100\r640x400x8x120\r640x480x8x70\r640x480x8x72\r640x480x8x75\r640x480x8x85\r800x600x8x60\r800x600x8x70\r800x600x8x72\r800x600x8x75\r800x600x8x85\r1024x768x8x60\r1024x768x8x70\r1024x768x8x72\r1024x768x8x75\r1024x768x8x85\r1152x864x8x60\r1152x864x8x70\r1152x864x8x72\r1152x864x8x75\r1152x864x8x85\r1280x1024x8x60\r1280x1024x8x70\r1280x1024x8x72\r1280x1024x8x75\r1600x1200x8x60\r320x200x16x70\r320x200x16x72\r320x200x16x75\r320x240x16x60\r320x240x16x70\r320x240x16x72\r320x240x16x75\r400x300x16x60\r400x300x16x70\r400x300x16x72\r400x300x16x75\r480x360x16x60\r480x360x16x70\r480x360x16x72\r480x360x16x75\r512x384x16x60\r512x384x16x70\r512x384x16x72\r512x384x16x75\r640x400x16x70\........"

获得当前分辨率配置，包含宽、高、色、刷新频率全部信息。the desktoprectlist只能够取当前值。