取得系统的颜色数

xingke

有价值的简单的小程序，大家可以收藏一下。

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;