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

[Zacherl]

Hi,

trotz Suche habe ich hier nicht wirklich gefunden, was ich suche ... und zwar brauche ich eine Funktion, die die Ausflösung des Monitors bleibend ändert (also wie über Anzeige).

Dann eine Fuktion, um die aktuelle Auflösung zu ermitteln (da hab ich aber glaube ich was in der CodeLib gefunden) und eine Funktion, die mir alle möglichen Auflösungen, die der Monitor aktivieren kann, auflistet.

Vielen Dank
Florian

[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

[Zacherl]

Danke, das hilft mir schonmal sehr weiter

Florian