Mantener Aplicacion Arancada

[ramonibk]

Hola a todos.

Lo que me gustaría es que mi aplicación arranque cuando arranco el ordenador lo cual es fácil añadiéndola en el ........\rum

pero me gustaría que cuando la cierran en realidad no se cerrase sino que para a la parte de iconos donde esta el reloj como ocurre con el MSN y demás programas.



alguien sabe como hacer esto????



Gracias de antemano.

[roman]

Primero que nada necesitas de una componente que te permita manejar iconos en el área de notificación (la del reloj). Para ello puedes usar TRxTrayIcon de las librerías RX. A la componente le asignas el icono que quieras y un PopupMenu que tendrá los ítemes que desees mostrar al dar click derecho en el icono.

En el evento OnCloseQuery del formulario principal pones

Código Delphi [-]
CanClose := DoClose;

if CanClose then
begin
  Hide;
  RxTrayIcon.Active := true;
end;

donde DoClose será una variable booleana (normalmente en false). Con esto impides que se cierre el formulario y en su lugar se oculte y haces visible el icono.

Las opciones que quieras poner en el menú serán a tu gusto pero muy posiblemente requieras como mínimo dos:

Mostrar - para volver a mostrar el formulario
Salir - para terminar (aquí sí) la aplicación

En la segunda opción pones DoClose en true para que el evento OnCloseQuery te permita cerrar el formulario.

Finalmente, en el evento OnShow del formulario desactivas el icono:

Código Delphi [-]
RxTrayIcon.Active := false;

a menos que desees que esté visible aún con el formulario a la vista.

// Saludos

[ramonibk]

Bueno puede ser una pregunta un poco estupida.
pero he estado trabajando con lo que me has dicho y no he visto donde poner el elemento DoClose a false. para que la aplicacion no se cierre.
me podias dar alguna pista mas. gracias

[roman]

DoClose es una variable booleana que tienes que declarar tú (por ejemplo en la sección private del formulario) y que inicializas a false (no es estrictamente necesario ya que por defecto su valor será false).

Cuando se ejecuta el evento OnCloseQuery, si DoClose es false...

... ¡oops! hay un error. El evento debe ser:

Código Delphi [-]
CanClose := DoClose;
 
if not CanClose then
begin
  Hide;
  RxTrayIcon.Active := true;
end;

Ahora sí. Cuando se ejecuta este evento, si DoClose es false, entonces CanClose será false también por lo que el formulario no se cerrará y en su lugar se ocultará y se activará el icono.

Si no usaras esta variable auxiliar y pusieras siempre CanClose := false, nunca podrías cerrar el formulario. El item "Salir" del PopupMenu está entonces para que ajustes DoClose a true en su evento OnClick:

Código Delphi [-]
DoClose := true;
Close;

Así, cuando la llamada a Close genere el evento OnCloseQuery, DoClose será ahora true y por tanto también CanClose permitiendo que se cierre el formulario.

// Saludos

[ramonibk]

Ante todo perdonar por mis pocas nociones de programacion.

pues hace poco que estoy programando y tengo poca o nunguna base. y todo lo que se a sido a base de cojer libros y manuales.

yo he generado donde declaro los Form que uso la variable DoClose.

pero lo que no tengo muy claro se como decirle que esta bariable es False. y si la dejo sin definir me genera un error.

[ramonibk]

Bueno Pido perdon
ya he descubierto que cuando se declaran variables endentro del private no hay que poner la palabra Val que era lo que yo hacia.
solo una cosa. aunque no me hace fala poner la variable a Flase. y para evirar errores o fallos la quisiera poner como se aria???

[roman]

Empezado por ramonibk

solo una cosa. aunque no me hace fala poner la variable a Flase. y para evirar errores o fallos la quisiera poner como se aria???

En este caso yo optaría por el evento OnCreate del formulario.

// Saludos

[ramonibk]

Bueno al final lo he resuelto de la siguiente manera

 

  private
	{ Private declarations }
   DoClose:Boolean;
 
//.....................................................
procedure TfrmMensajes.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
CanClose:=DoClose;
If CanClose =False Then
 Begin
  frmMensajes.Hide;
 End;
 DoClose:=True;
end;

Vereis que al fina pongo la variable DoClose a True. esto es por que me encontre con el problema que al intentar cerrar el PC si la aplicacion se encuentra con el DoClose:=False no me permite cerrar el PC

y despues en el OnShow del Form lo ponfo de nuevo a false.

[roman]

Empezado por ramonibk

Vereis que al fina pongo la variable DoClose a True. esto es por que me encontre con el problema que al intentar cerrar el PC si la aplicacion se encuentra con el DoClose:=False no me permite cerrar el PC

y despues en el OnShow del Form lo ponfo de nuevo a false.

Buena observación aunque tu enfoque implica que la sesión de Windows no podrá cerrarse a menos que tu aplicación esté oculta.

Este "problema" con el cierre de sesión de Windows es, desde mi punto de vista, un problema que siempre ha estado presente en Delphi y Borland simplemente no ha querido modificarlo.

El punto es que cuando el usuario intenta cerrar la sesión de Windows, el sistema manda un mensaje WM_QUERYENDSESSION a todas las aplicaciones y la VCL traduce este mensaje igual que si fuera un WM_CLOSE (cerrar la ventana) de manera que no podemos distinguir si la petción de cerrar la ventana es porque se intenta cerrar la aplicación o porque se intenta cerrar la sesión de Windows.

La manera de solucionar esto es creando un manejador para el mensaje WM_QUERYENDSESSION:

Código Delphi [-]
type
  TForm1 = class(TForm)
  private
    procedure WMQueryEndSession(var Msg: TWMQueryEndSession);
  end;

en donde indiquemos en alguna variable que se está terminando la sesión de Windows para que en OnCloseQuery podamos detectarlo (quizá la misma variable DoClose).

Pero hay que tener cuidado en que el mensaje WM_QUERYENDSESSION puede cancelarse si alguna aplicación se niega a terminar (por ejemplo un editor con archivos sin guardar donde el usuario decida cancelar el cierre). Para ello hay también que implementar un maejador para el mensaje WM_ENDSESSION y verificar que la sesión realmente se termina examinando el valor de Msg.EndSession.

// Saludos

[jhonny]

Caramba, a mi me sucedio alguna ves con una aplicación parecida, trate y trate de escuchar el mensaje WM_DESTROY y estaba muy confundido, tambien con WM_CLOSE, pero la verdad esque nunca trate de hacerlo con el WM_QUERYENDSESSION gracias roman haz sacado una espina que tenia desde hace algun tiempo y que de hecho trate de preguntar pero estaba tan embolatado con el asunto que nunca pude formular bien la pregunta.

[roman]

Si gustas revisa este enlace en donde doy algunos detalles más de WM_QUERYENDSESSION y WM_ENDSESSION.

// Saludos