mudar a resolusão do vídeo para 800x600

26/05/2003

1

Código-fonte que muda a resolusão do vídeo para 800x600 ?


Muito Obrigado!
:P


Responder

Posts

26/05/2003

Paganato

Eu utilizo a seguinte function:

// Mudar resolução do video
function SetDisplay(largura, altura : integer) : Boolean;
var
DevMode : TDeviceMode;
begin
EnumDisplaySettings( nil, 0, DevMode );
DevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
DevMode.dmPelsWidth := largura;
DevMode.dmPelsHeight := altura;
Result := ChangeDisplaySettings( DevMode, CDS_UPDATEREGISTRY ) = DISP_CHANGE_SUCCESSFUL;
end;


forma de uso:
utilizo duas variaveis onde gardam as coordenadas atuais


{ **** DEFINIÇAO DA RESOLUÇAO QUE O SISTEMA TRABALHARA ****}
if (Screen.Width <> 640) and (Screen.Height <> 480) then
begin
wPix := Screen.Width;
hPix := Screen.Height;
SetDisplay( 640, 480 ); // aqui coloca-se a resolução desejada
end;


Espero ter ajudado.


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira