Delphi获取系统支持颜色代码计算机等级考试

文章作者 100test 发表时间 2009:07:07 21:54:15
来源 100Test.Com百考试题网

　　编辑特别推荐:

　　全国计算机等级考试（等考）指定教材

　　全国计算机等级考试学习视频

　　全国计算机等级考试网上辅导招生

　　全国计算机等级考试时间及科目预告

　　百考试题教育全国计算机等级考试在线测试平台

　　全国计算机等级考试资料下载

　　全国计算机等级考试论坛

　　在自己的软件中经常需要得知运行本软件的系统支持的颜色数。例如有的软件在16Bits的颜色数的计算机上开发而成，程序的颜色调试得非常漂亮，但是到了一台只支持16色的计算机上，程序变得非常难看。这就需要得到系统的颜色数。
　　Delphi中如何取得系统的颜色数呢？下面的程序就解决这个问题。
　　function GetSysColorNum:Integer.
　　Var
　　ScreenDc:HDC.
　　NumBitsPixel:Integer.
　　begin
　　Result:=0.
　　ScreenDc:=GetDC(0).
　　NumBitsPixel:=GetDeviceCaps(ScreenDc,BITPIXEL).
　　ReleaseDC(ScreenDC).
　　Result:=1 shl NumBitsPixel.
　　End.