Em uma nova aplicação, coloque um LISTBOX(standard) e um BUTTON(standard). Modifique o evento OnCreate do form como mostrado abaixo:
Código:
procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
procode : TDevMode;
begin
i := 0;
while EnumDisplaySettings(nil,i,procode) do
begin
with procode do
ListBox1.Items.Add(Format('[%dx%d]-[%d] Cores',
[dmPelsWidth,dmPelsHeight, 1 shl dmBitsperPel]));
Inc(i);
end;
end;
Agora altere o evento OnClick do BUTTON:
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
procode : TDevMode;
begin
EnumDisplaySettings(nil,Listbox1.ItemIndex,procode);
ChangeDisplaySettings(procode,0);
end;
ATENÇÃO: CUIDADO COM A RESOLUÇÃO QUE VOCÊ IRÁ SELECIONAR, VOCÊ PODERÁ TER PROBLEMAS COM ELES.
Creditos:
FusioN - Tutorial
Calmon Ribeiro - Codigo