Mep Sites: Dicas de Delphi - Número de cores do monitor

Número de cores suportadas pelo seu Monitor

A dica abaixo apresenta o código para implementação de uma função que retorne o número de cores suportadas pelo monitor.

A função se baseia na utilização de uma API do Windows, chamada GETDC.

A função GETDC deve ser seguida sempre da função ReleaseDC , a fim de restaurar as características da propriedade selecionada.

Através da função GETDC é possível definir quais as características de contexto do monitor que desejamos manipular, no caso abaixo, define-se a característica de resolução.( GETDC(0) ).

Código Completo:

Function QdeCores : integer;var h : HDC;
begin
Result := 0; try h := GetDC( 0 );
Result :=1 shl ( GetDeviceCaps( h, PLANES ) * GetDeviceCaps( h, BITSPIXEL ));
finally
ReleaseDC( 0, h );
end;
end;