- var dmScreenSettings : devmode;
- ZeroMemory(@dmScreenSettings, SizeOf(dmScreenSettings));
- with dmScreenSettings do begin
- dmSize := SizeOf(dmScreenSettings);
- dmPelsWidth := Width;
- dmPelsHeight := Height;
- dmBitsPerPel := PixelDepth;
- dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL;
- end;
- ChangeDisplaySettings(dmScreenSettings, CDS_FULLSCREEN)