Mudando a resolução do vídeo através do Delphi

 

Em uma nova aplicação, coloque um Listbox e um botão. Modifique o evento OnCreate do form como mostrado abaixo:

 

procedure TForm1.FormCreate(Sender: TObject);

var

  i : Integer;

  DevMode : TDevMode;

begin

  i := 0;

  while EnumDisplaySettings(nil,i,Devmode) do

  begin

    with Devmode do

      ListBox1.Items.Add(Format('%dx%d %d Colors',

        [dmPelsWidth,dmPelsHeight, 1 shl dmBitsperPel]));

    Inc(i);

  end;

end;

 

Agora altere o evento OnClick do botão:

 

procedure TForm1.Button1Click(Sender: TObject);

var

  DevMode : TDevMode;

begin

  EnumDisplaySettings(nil,Listbox1.ItemIndex,Devmode);

  ChangeDisplaySettings(DevMode,0);

end;

 

Ao clicar no botão, serão exibidas as possíveis resoluções de vídeo. Agora é só executar a aplicação.

 

por Erick Rhamnusia

uploader@clubedelphi.net