Rund ums Auflösung ändern, auslesen, ermitteln der Möglichen

[DGL-luke]

Hoffe, dieser Ausschnitt aus einem aktuellen Projekt von mir hilft dir:

Delphi-Quellcode:

procedure TFResChange.FormCreate(Sender: TObject);
var
  cnt : Integer;
  DevMode : TDevMode;
  Resolution: PDevMode;
begin
  Resolutions := TList.Create;

  //Auflistung der Display-Modi - © delphi.about.com
  cnt := 0;
  while EnumDisplaySettings(nil,cnt,DevMode) do
  begin
    with Devmode do
    begin
      LBResolutions.Items.Add(Format('%dx%d %d Bit %d Hz ', [dmPelsWidth,dmPelsHeight,dmBitsperPel,dmDisplayFrequency])) ;
      New(Resolution);             // Speicherbereich reservieren
      Resolution^ := DevMode;      // kopieren
      Resolutions.Add(Resolution); // Zur Liste
    end;
    Inc(cnt);
  end;
end;

EDIT: außerdem für dich interessant: ChangeDisplaySettings