Delphi dicas

Funçao para saber a quant de cores do windows

Retorna a quantidade atual de cores no Windows (16, 256, 65536 = 16 ou 24 bit



function NumeroDeCores : Integer;

var

DC:HDC;

BitsPorPixel: Integer;

begin

        Dc := GetDc(0); // 0 = vídeo

        BitsPorPixel := GetDeviceCaps(Dc,BitsPixel);

        Result := 2 shl (BitsPorPixel - 1);

end;

por : Denilson De Macedo