Delphi中取得系统支持的颜色数的方法

　　在自己的软件中经常需要得知运行本软件的系统支持的颜色数。例如有的软件在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;

以上是小编为您精心准备的的内容，在的博客、问答、公众号、人物、课程等栏目也有的相关内容，欢迎继续使用右上角搜索按钮进行搜索软件
， 颜色
， 程序
， 系统
， integer
支持
delphi 取得串口名称、delphi 取得当前目录、delphi xe imei 取得、delphi 取得文件名、delphi 取得文件大小，以便于您获取更多的相关知识。