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;