首页 > > 程序设计 > delphi >

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

2008-02-23 07:13:26来源：互联网阅读 ()

在自己的软件中经常需要得知运行本软件的系统支持的颜色数。例如有的软件在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;

(T113)

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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有