VB利用API函数设定屏幕颜色数

　　原则上，只改这一次，下一次开机会还原，但如果需重开机，才会Update Registry中的设定，并重开机。

　　如果要永久设定其设定值，请将

　　

　　b = ChangeDisplaySettings(DevM, 0)

　　改成

　　

　　b = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)

　　注：

　　DevM.dmBitsPerPel 便是设定颜色数，其实应说每个Pixel要多少Bits来显示

　　4 --> 16色

　　　　8 --> 256色

　　　　16 --> 65536色 以此类推

　　

推荐文章：搞笑之可爱水果表情　　清新素洁水仙壁纸集