Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Полноэкранный режим

01.01.2007
function SetFullscreenMode: Boolean;
var
 
DeviceMode: TDevMode;
begin
 
with DeviceMode do
 
begin
    dmSize
:= SizeOf(DeviceMode);
    dmBitsPerPel
:= 16;
    dmPelsWidth
:= 640;
    dmPelsHeight
:= 480;
    dmFields
:= DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
    result
:= False;
   
if ChangeDisplaySettings(DeviceMode, CDS_TEST or CDS_FULLSCREEN) <>
      DISP_CHANGE_SUCCESSFUL
then
     
Exit;
   
Result := ChangeDisplaySettings(DeviceMode, CDS_FULLSCREEN) =
      DISP_CHANGE_SUCCESSFUL
;
 
end;
end;
 
procedure
RestoreDefaultMode;
var
  T
: TDevMode absolute 0;
begin
 
ChangeDisplaySettings(T, CDS_FULLSCREEN);
end;
 
procedure TForm1
.Button1Click(Sender: TObject);
begin
 
if setFullScreenMode then
 
begin
    sleep
(7000);
   
RestoreDefaultMode;
 
end;
end;

https://delphiworld.narod.ru/

DelphiWorld 6.0