xingke 发表于 2007-10-25 17:07:08

取得系统的颜色数

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

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;
页: [1]
查看完整版本: 取得系统的颜色数