- procedure Tform1.GoTofullscreen(width,height:integer);
- var dmScreenSettings: DevMode;
- begin
- WindowState := wsMaximized;
- BorderStyle := bsNone;
- Form1.Cursor:=crNone;
- ZeroMemory(@dmScreenSettings, SizeOf(dmScreenSettings));
- with dmScreenSettings do
- begin
- dmSize := SizeOf(dmScreenSettings);
- dmPelsWidth :=width; // Breite
- dmPelsHeight :=height; // H?e
- dmBitsPerPel := 32; // Farbtiefe
- dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL ;
- end;
- if (ChangeDisplaySettings(dmScreenSettings, CDS_FULLSCREEN) = DISP_CHANGE_FAILED) then
- begin
- showmessage('Fullscreen konnte nicht aktiviert werden');
- exit;
- end;
- end;