forma que ocupe toda la pantalla

[cahosoft]

yo se que es algo fasil pero de verdad me rindo....

quiero hacer una aplicacion en donde el usuario no puede acceder a ninguna otra aplicacion...
que mi aplicacion quede por encima la barra de tarea....
a tambien quiero que quede con borde pero sin la barra de estado...

le agradesco cualquier ayuda

[delphi.com.ar]

Prueba algo así:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  FormStyle := fsStayOnTop;
  BorderStyle := bsNone;
  BoundsRect := Rect(0, 0, Screen.Width, Screen.Height);
end;

[roman]

Empezado por delphi.com.ar

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  FormStyle := fsStayOnTop;
  BorderStyle := bsNone;
  BoundsRect := Rect(0, 0, Screen.Width, Screen.Height);
end;

Yo le quitaría esto pues la quiere con borde. Lo que no me queda claro es qué entiende por "barra de estado".

// Saludos

[sanxpue]

A mi me funciona de la siguiente manera :

En la creación de la forma

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

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

[delphi.com.ar]

Empezado por roman

Yo le quitaría esto pues la quiere con borde.

Es verdad, creí haber leído lo contrario que es lo mas común ...

Saludos!

[roman]

¡Ah! claro. Faltaba el primer requerimiento, no acceder a ninguna otra aplicación. Ahora que la verdad cuando veo este tipo de requerimientos me pregunto si no les será más útil sustituir el shell de windows (Explorer) por su propia aplicación.

Otra cosa que puede hacerse es tener dos aplicaciones. La primera simplemente manda ejecutar a la principal, pero en un escritorio distinto (objeto Desktop) con lo cual no podrá acceder a nada más que no sea ella misma. Al cerrar la aplicación principal se cierra el escritorio extra y se conmuta al escritorio normal.

// Saludos

pd: en http://www.clubdelphi.com/users/roman/hooks.php puede ver una forma de inhabilitar combinaciones especiales de teclas (excepto Ctrl-Alt-Del) para el caso de Windows 2000/XP en donde no funciona lo del screen saver.

[cahosoft]

Gracias muchachos por su ayuda...
cumplio tadas mis preguntas.....

[cahosoft]

Gracias muchachos por su ayuda...
cumplio tadas mis preguntas.....