1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

//Wechselt die Auflösung des Monitors
//@Width: Breite in Pixeln;
//@Height: Höhe in Pixeln;
//@ColorDepth: Farbtiefe;
//@Freq: Bildwiederholfrequenz; 
function gluToggleFullScreen(Width, Height, ColorDepth, Freq: Integer): Boolean;
var dmScreenSettings : DevMode;
begin
  result := True;
  ZeroMemory(@dmScreenSettings, SizeOf(dmScreenSettings));
  with dmScreenSettings do begin
    dmSize              := SizeOf(dmScreenSettings);
    dmPelsWidth         := Width;                    // Breite
    dmPelsHeight        := Height;                   // Höhe
    dmBitsPerPel        := ColorDepth;               // Farbtiefe
    dmDisplayFrequency  := Freq;                     // Bildwiederholfrequenz
    dmFields            := DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL or DM_DISPLAYFREQUENCY;
  end;
  if (ChangeDisplaySettings(dmScreenSettings, CDS_FULLSCREEN) = DISP_CHANGE_FAILED) then begin
    result := false;
  end;
end;