Отображение списка поддерживаемых видеорежимов монитора с возможностью програмной установки нужного режима.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
d: _devicemodeA;
i: integer;
begin
i:=0;
while EnumDisplaySettings(nil,i,d)<>false do
begin
ListBox1.Items.Add('Mode: '+IntToStr(i+1)+' - '+FloatToStr(D.dmPelsWidth)+'x'+FloatToStr(D.dmPelsHeight)+'x'+FloatToStr(D.dmBitsPerPel)+' - '+FloatToStr(D.dmDisplayFrequency)+' Hz');
inc(i,1);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
d: _devicemodeA;
begin
EnumDisplaySettings(nil, ListBox1.ItemIndex, D);
ChangeDisplaySettings(D, CDS_UPDATEREGISTRY);
end;