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

[Кронос]

Объясните, как сделать полноэкранный режим кроме спосаба где:

1) Значения Height:=x и Width:+y
1) Свойству BorderStyle присваивается значение bsNone.
2) Програмно устанавливается значение разрешение экрана, где ширина=x и высота=y.

[Alex21]

Вот так можно:

ShellApi
...
var
  DefWidth, DefHeight, BPP: word;{цвета, ширина, высота}
  DefFR:integer;{частота}
...
procedure SetScreen(BPP:byte;width,height,FR:integer);
var
  D: TDevMode;
  h: HWND;
begin
  h:=0;
  D.dmDeviceName:='DISPLAY';
  D.dmBitsPerPel:=BPP;
  D.dmDisplayFrequency:=FR;
  D.dmPelsWidth:=Width;
  D.dmPelsHeight:=Height;
  D.dmFields:=DM_BITSPERPEL+DM_PELSWIDTH+DM_PELSHEIGHT+DM_DISPLAYFREQUENCY;
  D.dmSize:=SizeOf(D);
  if ChangeDisplaySettings(D,CDS_TEST)=DISP_CHANGE_SUCCESSFUL then
    ChangeDisplaySettings(D,CDS_UPDATEREGISTRY)
  else
    MessageBox(h,'This mode is not supported by your video.',
    'Failed to change mode', MB_ICONWarning);
end;

..
SetScreen(16,800,600,75); {16 бит цвет, 800х600, 75Гц.}
..

При инициализации формы сохраняем текущии настройки:

procedure SaveSettings;
var
  DC: hDC;
begin
  DefWidth := Screen.Width;
  DefHeight := Screen.Height;
  DC := CreateDC('DISPLAY', nil, nil, nil);
  BPP := GetDeviceCaps(DC, BITSPIXEL);
  DefFR:=GetDeviceCaps(DC, VREFRESH);
end;

При завершении восстанавливаем настройки экрана:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  SetScreen(BPP,DefWidth,DefHeight,DefFR);
end;