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

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;

(T113)

上一篇： 如何用Delphi开发简单的WebMail程序
下一篇： 基于Delphi的英文发音教学软件的实现

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!