Delphi中如何取得系统支持的颜色数

你经常需要知道自己软件中运行这个软件的系统支持的颜色数量。举个例子，有些软件是在16位彩色电脑上开发的，程序的色彩调试很漂亮，但是到了只支持16色的电脑上，程序就变得很难看了。我们需要得到系统的颜色数。

如何在Delphi中获取系统的色号？

下面的过程将解决这个问题。

函数GetSysColorNum:Integer；
Var
screen DC:HDC；
numbits pixel:Integer；
begin
Result:= 0；
ScreenDc:= GetDC(0)；
numbits pixel:= GetDeviceCaps(ScreenDc，bit pixel)；
release DC(screen DC)；
结果:= 1 shl NumBitsPixel
End；