- procedure TForm1.GoToFullScreen(pWidth, pHeight, pBPP, pFrequency : Word);
- var
- dmScreenSettings : DevMode;
- begin
- // Fenster vor Vollbild vorbereiten
- WindowState := wsMaximized;
- BorderStyle := bsNone;
- ZeroMemory(@dmScreenSettings, SizeOf(dmScreenSettings));
- with dmScreenSettings do
- begin
- dmSize := SizeOf(dmScreenSettings);
- dmPelsWidth := pWidth; // Breite
- dmPelsHeight := pHeight; // Höhe
- dmBitsPerPel := pBPP; // Farbtiefe
- dmDisplayFrequency := pFrequency; // Bildwiederholfrequenz
- dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL or DM_DISPLAYFREQUENCY;
- end;
- if (ChangeDisplaySettings(dmScreenSettings, CDS_FULLSCREEN) = DISP_CHANGE_FAILED) then
- begin
- MessageBox(0, 'Konnte Vollbildmodus nicht aktivieren!', 'Error', MB_OK or MB_ICONERROR);
- exit
- end;
- end;