Resolucao do monitor
Help....
Necessito da ajuda de vocês.
Atraves do ´SCREEN´ eu obtenho a largura e a altura da resolucao que esta sendo usada no windows, porém como que consigo obter a resolucao do monito referente a cor (256, True Color,....)que o windows está usando?
Se alguém conseguir me ajudar, eu agradeço
Obrigado
Necessito da ajuda de vocês.
Atraves do ´SCREEN´ eu obtenho a largura e a altura da resolucao que esta sendo usada no windows, porém como que consigo obter a resolucao do monito referente a cor (256, True Color,....)que o windows está usando?
Se alguém conseguir me ajudar, eu agradeço
Obrigado
Fuka
Curtidas 0
Respostas
Nildo
12/02/2003
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;
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;
GOSTEI 0
Dor_poa
12/02/2003
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;
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;
GOSTEI 0