显示问题????

Question

在delphi中如何用按钮调整显示器的色彩数(16位,32位,64位),请大人给个例子,谢谢了!!!ps:不用修改分辨率.

Answer 1

这问题我不会！
不过，我想和注册表有关！
打开注册表 HKEY_CURRENT_ USER\Control Panel\Desktop\ 或者 \WindowMetrics下，
你自己看看吧~~~哪一项我就不清楚了~
注册表操作我想你问题不大吧~~ 

Answer 2

我已经解决了，方法如下：
function SetColorDepth_xy(vColor:integer):boolean;
var
  lpDevMode:TDeviceMode;
begin
  Result:=EnumDisplaySettings(nil, 0, lpDevMode);
  if Result then
  begin
    lpDevMode.dmFields :=dm_BitsPerPel;
    lpDevMode.dmBitsPerPel := vColor;
    Result := ChangeDisplaySettings(lpDevMode, 0)=DISP_CHANGE_SUCCESSFUL ;如何？不过还是要谢谢你^_^。  end;
end;

Answer 3

我已经解决了，方法如下：  
function  SetColorDepth_xy(vColor:integer):boolean;  
var  
   lpDevMode:TDeviceMode;  
begin  
   Result:=EnumDisplaySettings(nil,  0,  lpDevMode);  
   if  Result  then  
   begin  
       lpDevMode.dmFields  :=dm_BitsPerPel;  
       lpDevMode.dmBitsPerPel  :=  vColor;  
       Result  :=  ChangeDisplaySettings(lpDevMode,  0)=DISP_CHANGE_SUCCESSFUL  ;  
 
如何？不过还是要谢谢你^_^。  
 
   end;  
end;