Guardar antes de que mi aplicacion se cierre

[Gelmin]

Que tal...agradesco la ayuda proporsionada....! probe lo del queryendsession y sucede lo siguiente: programe que guardara cuando se detectara el mensaje de queryendsession:

Código Delphi [-]
//declaracion del procedimiento Guardar dentro de Tform1
  procedure Guardar(var msg: TMessage); message WM_QUERYENDSESSION;
//definicion
procedure TForm1.Guardar(var msg:Tmessage);
begin
  Thoras.Open; //abrir la tabla THoras
  Thoras.insert;   //modo de insercion
  Thorashoraent.Value:='Hora entrada'; 
  Thorashorasal.Value:='Hora salida';
  Thorascant.Value:=5; //cantidad horas
  Thoras.Post; //guardar
  Thoras.close;  //cerrar la tabla Thoras
end;

Pero no me guardaba nada....! despues decidi hacer eso mismo en el OnCloseQuery del form y ahi si me funciona pero solamente cuando tengo los dos procedimientos el del Queryendsession y el del OnCloseQuery del form ambos hacen exactamente lo mismo abrir la tabla (Thoras.Open...etc!) pero lo que no entiendo es porque tengo que hacer lo mismo en el procedimiento
procedure Guardar(var msg: TMessage); message WM_QUERYENDSESSION;
y en el Evento OncloseQuery del form para que me pueda funcionar....! la verdad no se porque tiene que ser asi...pero bueno si asi funciona asi se queda. Si tienes algun comentario sobre esto diganlo...Saludos Gelmin Martinez (Nicaragua)

[[Lepe]]

Me gustaría reabrir este hilo, ya que hay otro hilo parecido.

Quizás haya que indicar en ese procedimiento el resultado, es decir, añadir msg.Result := 1 para indicar que todo ha ido bien. Realmente no lo he probado, ¿alguien está de acuerdo o en contra?

Saludos

Yo quería hacer algo parecido pero para saber la fecha y hora en la que se apagaba el portátil, ya que le dura muy poco la batería y quería saber por término medio cuanto le duraba.

Si cerraba yo la apliación de Delphi no había ningún problema, pero si apagaba el portátil y era Windows quien la cerraba, efectivamente no guarda la fecha y hora de cierre.

habrá que estudiar lo que aquí se dice y solucionarlo.

Gracias.