Foros Club Delphi - Hacer aplicación a pantalla completa en windows10

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - Hacer aplicación a pantalla completa en windows10 (https://www.clubdelphi.com/foros/showthread.php?t=90928)

Hacer aplicación a pantalla completa en windows10

Hola, como debería hacer una aplicaciópn a pantalla completa
que funcione en windows10 que oculte la barra de tareas.

He probado con esto para ocultar la barra
ShowWindow(FindWindow( 'Shell_TrayWnd',nil), SW_HIDE);
y esto para mostrar al salir
ShowWindow( FindWindow( 'Shell_TrayWnd',nil), SW_SHOWNA);

pero tiene dos problemas el primero es que me oculta la barra pero esa zona aparece el gris.
luego si saliese por algo del programa forzadamente no se volvería a mostrar la barra.

Seguro que hay un modo correcto de hacerlo.

gracias

Ya he encontrado solución con este código de ejemplo funciona perfecto en win10 x64:

Código PHP:


		
			
TForm1 = class(TForm)
    ....
  protected
    FPreviousBoundsRect: TRect;
    procedure FlipFullScreen;
    ....
  public
    ....
  end;

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  FPreviousBoundsRect := BoundsRect;
end;

procedure TForm1.FlipFullScreen;
var
  WindowStyle: NativeInt;
begin
  WindowStyle := GetWindowLong(Handle, GWL_STYLE);
  if ((WindowStyle and WS_OVERLAPPEDWINDOW) > 0) then
  begin
    FPreviousBoundsRect := BoundsRect;
    BoundsRect := Screen.MonitorFromWindow(Handle).BoundsRect;
    SetWindowLong(Handle, GWL_STYLE, WindowStyle and (not WS_OVERLAPPEDWINDOW));
  end else
  begin
    SetWindowLong(Handle, GWL_STYLE, WindowStyle or WS_OVERLAPPEDWINDOW);
    BoundsRect := FPreviousBoundsRect;
  end;
end;

Gracias por compartir la solución. :)