Saber a configura��es de cores do videio - Delphi

Question

Como fa�o para descobir as cores do video do computador... Se esta em 256 cores ou 16 bits, ou 32 bits..E se estiver em 256 cores, como fa�o para alterar, via programa��o para 16bits......

Adriano Santos · Answer

Precisar dar uma arrumada no fonte, mas funciona pq eu tese.

Pega todas as configra��es dispon�veis.

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  DevMode: TDevMode;
begin
  i := 0;
  while EnumDisplaySettings(nil, i, Devmode) do
  begin
    with Devmode do
      ListBox1.Items.Add(Format(��dx�d �d Colors�,
        [dmPelsWidth, dmPelsHeight, 1 shl dmBitsperPel]));
    Inc(i);
  end;
end;

Altera pra a resolu��o desejada:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  DevMode: TDevMode;
begin
  i := 0;
  while EnumDisplaySettings(nil, i, Devmode) do
  begin
    with Devmode do
      ListBox1.Items.Add(Format(��dx�d �d Colors�,
        [dmPelsWidth, dmPelsHeight, 1 shl dmBitsperPel]));
    Inc(i);
  end;
end;

Pega a op��o atual:

procedure TForm1.Button1Click(Sender: TObject);
var
  hnd: THandle;
  bitsPorPixel: integer;
begin
  hnd := GetDC(Handle);
  bitsPorPixel := GetDeviceCaps(hnd, BITSPIXEL);
  // 8 = 256 cores; 16 = high color; 24 = true color
  Label1.Caption := IntToStr(bitsPorPixel);
end;

F�rum Saber a configura��es de cores do videio - Delphi #296861