Celoobrazovkový režim

Ukážeme si, jak spustit aplikaci podobně jako hry, tj. ve „fullscreen“ modu. Postup je poměrně snadný – nejprve deaktivujeme systémové klávesy (bohužel pod Windows NT/2000 se nám to jako obvykle nepovede), poté necháme zmizet Hlavní panel a nakonec upravíme okno hlavního formuláře tak, aby se zobrazovalo bez titulkového pruhu a roztažené na celou obrazovku.
Náš kód by mohl vypadat např. nějak takto:
procedure TForm1.FormCreate(Sender: TObject);
var
HTaskbar : HWND;
OldVal : LongInt;
begin
try
HTaskBar:=FindWindow('Shell_TrayWnd',nil);
SystemParametersInfo (97, Word (True), @OldVal, 0) ;
EnableWindow(HTaskBar,False);
ShowWindow(HTaskbar,SW_HIDE);
finally
With Form1 do begin
BorderStyle :=bsNone;
FormStyle :=fsStayOnTop;
Left :=0;
Top :=0;
Height :=Screen.Height;
Width :=Screen.Width;
end;
end
end;