Windows - mudando a resolucao do windows

Top  Previous  Next

Quando acionada ela apresenta num listbox todas as resolucoes possiveis

pela placa de video e permite trocar a resolucao instantaneamente

simplesmente clicando um botao:

 

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 Cores',[dmPelsWidth,dmPelsHeight,1 shl dmBitsperPel]));

    Inc(i);

  end;

end;

 

procedure TForm1.ListBox1Click(Sender: TObject);

begin

  Button1.Enabled := Listbox1.ItemIndex >= 0;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var

  DevMode : TDevMode;

begin

  EnumDisplaySettings(nil,Listbox1.ItemIndex,Devmode);

  ChangeDisplaySettings(DevMode,CDS_UPDATEREGISTRY); // coloque 0 no 2 parametro para não ficar

end;