Tips (1541)

Tip Bewertung (2):

function GetColorDepth: string;
var
  DesktopDC: HDC; // LongWord
  BitsPerPixel: Integer;
begin
  DesktopDC    := GetDC(0);
  BitsPerPixel := GetDeviceCaps(DesktopDC, BITSPIXEL);
  case BitsPerPixel of
    4: Result  := '4-Bit';
    8: Result  := '8-Bit';
    16: Result := '16-Bit';
    24: Result := '24-Bit';
    32: Result := '32-Bit';
  end;
  ReleaseDC(0, DesktopDC);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetColorDepth);
end;