Buscar por:

Mudar realmente a resolução de vídeo

Código

Após pesquisas em várias apostilas, encontrei duas funções no Delphi 7, que realmente muda a resolução de Vídeo, que são ENUMDISPLAYSETTINGS e CHANGEDISPLAYSETTINGS, o código exato ficaria assim:

procedure TForm1.FormCreate(Sender: TObject);

var DevMode: TDeviceMode;

begin

 EnumDisplaySettings(nil, 39, DevMode);

 ChangeDisplaySettings(DevMode, 0);

end;

O índice 39 na função Enumdisplaysettings acima, nada mais é que o índice do modo de resolução 800 X 600 256 cores da minha placa de vídeo.

Oriento a todos que resolveram usar estas duas funções, observarem quantos modos de resolução sua placa suporta, pois o índice 39 da sua placa de vídeo pode não significar o mesmo da minha.

Críticas e sugestões para discorpio@msn.com

desde já agradeço o espaço.