怎样得到屏幕的色彩位数?????????

Question

对于不同的色彩数我们可以用启动时加以判断并选择相应的配色/图片方案。可在窗口建立时加入程序如下： 
procedure TForm1.FormCreate(Sender: TObject); 
var 
colorbits:Integer; 
begin 
colorbits :=GetDeviceCaps( h, BITSPIXEL ); 
case colorbits of 
1: //黑白配色方案; 
.... 
4: //16色配色方案; 
.... 
8: //256色配色方案; 
.... 
16: //16位色配色方案; 
.... 
24: //24位色配色方案; 
.... 
32: //32位色配色方案; 
.... 
end; 
end; 
这样就可以在不同的颜色环境下使用不同的配色方案，不同的图标/图片/色彩均在设计者的控制下，可制作出比较好的图片/彩色环境，而不至于在真彩时很不错，而在16色时一塌糊涂

Answer 1

colorbits :=GetDeviceCaps( h, BITSPIXEL );