Method of obtaining the number of colors supported by the system in Delphi

In your own software, you often need to know the number of colors supported by the system running the software. For example, some software in the 16Bits color number of the computer developed, the program color debugging is very beautiful, but to a support of only 16-color computer, the program becomes very ugly. This requires the number of colors in the system.

How does Delphi get the number of colors in the system? The following procedure solves this problem.

function Getsyscolornum:integer; Var Screendc:hdc; Numbitspixel:integer; Begin Result:=0; SCREENDC:=GETDC (0); Numbitspixel:=getdevicecaps (screendc,bitpixel); ReleaseDC (SCREENDC); Result:=1 SHL Numbitspixel; End;