Buscar por:

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

Código

{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.