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