Ver Mensaje Individual
  #4  
Antiguo 30-04-2004
sanxpue sanxpue is offline
Miembro
 
Registrado: jul 2003
Posts: 196
Reputación: 21
sanxpue Va por buen camino
Talking A mi me...

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
__________________
saludos desde Puebla Mexico..
asanxt@hotmail.com
"como siempre a sus ordenes y siempre con buena cara"
'lolita me excitas, perversa piel de melocotón'
Responder Con Cita