发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: BorlandDev
标  题: Delphi中如何取得系统支持的颜色数
发信站: 哈工大紫丁香 (2001年03月13日17:58:01 星期二), 转信


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

如果大家有更好的方法，请来信告之，谢谢。如果上面有不对之处，请不吝指教，
谢谢。 

作者：傅贵 
   
 
  如果你有什么好的资料，可以寄给我哟:) <<回到首页 <<上一篇 >> 



------------------------------------------------------------------------
--------
下一篇   Delphi 技巧集 
   
  Copyright 1999.11 by 东子 Mail to me! 
感谢广州视窗提供主页空间 


--

       大海无边天做岸
               山登绝顶我为风

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]