Código
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) ).}
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;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009