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;