Mantener Aplicacion Arancada

[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