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;