地市分站
返回首页 教育新闻 教辅资源 中考 高考 考研 英语 大学 中小学 教师 家长 树人论坛 树人博客
用户名
密  码
教育报刊
 
全站检索
首页 等级考试 资格水平考试 微软认证 思科认证 华为认证 Oracle认证 Linux认证 Java认证
您现在的位置是:树人网首页 / 计算机等级考试 / 计算机等级考试 / 文章浏览
Delphi中如何取得系统支持的颜色数
文章来源：来源网络 发表时间：2008-06-09 点击次数 次
　在自己的软件中经常需要得知运行本软件的系统支持的颜色数。例如有的软件在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;

 



第 页

责任编辑:qwer19871212

相关文章
公告栏

“蓝焰杯”第二届河南教育十大新闻人物火热评选中！！

点击参加评选，为你心目中的新闻人物投上一票>>>>
频道内容精选
[计算机考试]程序员必考的知识点
论坛/博客精选