怎么得怎么办才能改更系统颜色(如将真彩16色更改为真彩32色或256色等)

Question

我查了很多资料都有介绍更改系统分辩率的，但就没有改更系统颜色的。您能给予指教吗？万分感激！！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var DevMode: TDeviceMode;
begin
  if EnumDisplaySettings(nil, 0, DevMode) then begin
    DevMode.dmFields := DM_BITSPERPEL;
    // 8 - 256色，16 - 16位增强色，32 - 32位真彩色
    DevMode.dmBitsPerPel := 8;
    if ChangeDisplaySettings(DevMode,0) <> DISP_CHANGE_SUCCESSFUL then
      ShowMessage('无法更改！');
  end;
end;

Answer 2

case GetDeviceCaps(GetDC(GetDesktopWindow), BITSPIXEL) of
    8:  ShowMessage('256色');
    16: ShowMessage('16位增强色');
    32: ShowMessage('32位真彩色');
  end;