Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

System info
⤷ Get color depth (bits)

Use GetDeviceCaps function with BITSPIXEL parameter. This function returns number of adjacent color bits for each pixel.


procedure TForm1.Button1Click(Sender: TObject);
var
  TempDC: HDC;
  i: Integer;
begin
  TempDC:=GetDC(GetDesktopWindow);
  i:=GetDeviceCaps(TempDC, BITSPIXEL);
  Label1.Caption:='Color schema '+IntToStr(i)+' bits';
end;

Download source code

More for developers: ● Delphi Components

● .Net Components

● Software for Android Developers

● Databases for Amazon Associates
Amazon Categories
Amazon Nodes

System info ⤷ Get color depth (bits)

System info
⤷ Get color depth (bits)