A mi me funciona de la siguiente manera :
En la creación de la forma
Código:
Procedure TForm1.FormCreate(Sender: TObject);
Var
HTaskbar : HWND;
OldVal : LongInt;
Begin
Try
//Obtener el handle del Taskbar de Windows
HTaskBar:=FindWindow('Shell_TrayWnd',nil );
//Dehabilitar las teclas de Sistema(F1, Ctr-Alt-Del, etc...), solo en Win 95/98/ME
SystemParametersInfo (97, Word (True), @OldVal, 0) ;
//Deshabilitar el Taskbar
EnableWindow(HTaskBar,False);
//Esconder el Taskbat
ShowWindow(HTaskbar,SW_HIDE);
Finally
With Form1 Do
Begin
// BorderStyle :=bsNone; este no por que quieres los bordes
FormStyle :=fsStayOnTop;
Left :=0;
Top :=0;
Height :=Screen.Height;
Width :=Screen.Width;
End;
End //Finally
End;
Cuando la cierras
Código:
Procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
HTaskbar : HWND;
OldVal : LongInt;
Begin
HTaskBar:=FindWindow('Shell_TrayWnd',nil );
SystemParametersInfo (97, Word (False), @OldVal, 0); //solo en Win 95/98/ME
EnableWindow(HTaskBar,True);
ShowWindow(HTaskbar,SW_SHOW);
End;
nada mas que si quieres trazar tu programa, no vas a poder, osease que lo pones cuando ya este listo para el usuario