Cerrar aplicación al apagar el sistema

[MDSato]

Acabo de hacer la prueba con la solución de trucomanía, pero no consigo nada nuevo. Incluso destruyendo todas las tareas, anteriores y posteriores a la ejecución del programa. :/

[Casimiro Noteví]

vas a tener que probar si se apaga dándole al botón y quitándole el cable de la electricidad... vaya a ser que ni así se apague


bromas aparte, es un poco raro que no consigas apagarlo de ninguna forma.

[MDSato]

Pues chico... Estoy por hacer la prueba, porque no lo entiendo... Ahora voy a investigar si puedo relanzar un nuevo shutdown desde mi aplicación antes de que se cierre, pero vamos... Que no tiene mucho sentido todo esto a no ser que sea lo que comentaba Roman, alguna incompatibilidad del RX... Aunque he hecho un pequeño programa de prueba y ese se cierra perfectamente y el sistema se acaba apagando...

Un misterio digno de Expediente-X...

[Casimiro Noteví]

por cierto, creo que no lo he leido, ¿qué windows usas?

[Casimiro Noteví]

Por si te sirve de algo, este es el código que uso habitualmente para que se cierre sin problemas cuando uso un trxtrayicon

 procedure TFmain.WMQueryEndSession(var Message: TMessage); //message WM_QUERYENDSESSION;
 begin
    Message.Result := 1; // 1=s�apagar   0=no,no apagar
    canClose := True;
    //
    Halt( Message.Result );
    Close;  // no creo que llegue a este close.
    //
end;

[MDSato]

Hola Casimiro,

Gracias por la ayuda.
Pues he realizado la prueba en Windows 98, 2000 y XP, aunque realmente desarrollo en XP...
Esa opción que me has dado es la que estaba intentando efectuar. El problema que me encuentro ahora es que no es capaz de reconocerme ese mensaje y por tanto no pasa por el tratamiento del WM_QUERYENDSESSION, en cambio sí pasa por el WM_ENDSESSION.

Tengo la declaración en el private del formulario así:
procedure WMQueryEndSession (var Msg : TWMQueryEndSession); message WM_QueryEndSession;

y la implementación

procedure TFormMainImpre.WMQueryEndSession (var Msg : TWMQueryEndSession);
begin
Msg.Result := 1;
showmessage('ENTRO QUERY');
Close;
Halt;
end;

Pero nada. No aparece el mensaje. Seguiré intentando.

Muchas gracias de nuevo.

[MDSato]

Estimados colegas,

Finalmente he conseguido mi propósito y os pongo la solución que he utilizado por si alguien más se encuentra en este problema.

Utilicé la opción de Roman descrita aquí (http://www.clubdelphi.com/foros/sho...860&postcount=2) redefiniendo los mensajes de este modo:

Código Delphi [-]
procedure TFormMainImpre.WMQueryEndSession (var Msg : TWMQueryEndSession);
begin
     Msg.Result := 1;
     Close;
     Halt;
end;

procedure TFormMainImpre.WMEndSession (var Msg : TWMEndSession);
begin
     ExitWindowsEx(EWX_FORCE, 0);
     inherited;
end;

Aún no sé cual es el motivo que causa este funcionamiento, pero por las pruebas que he podido realizar si el cerrado se realizaba en el tratamiento del mensaje de Windows WMQueryEndSession, todo funcionaba perfectamente, en cambio si se realizaba en WMEndSession (como en mi opinión debería ser) mi programa se cerraba correctamente pero el apagado se detenía. El problema que me encontraba ahora es que no me llegaba el mensaje WMQueryEndSession antes que el WMEndSession, sino directamente éste último. Para ello he utilizado la instrucción que veis (ExitWindowsEx(EWX_FORCE, 0) que fuerza el cierre del programa. Es al ejecutarse esta instrucción cuando pasa por WMQueryEndSession y el cerrado y apagado son perfectos.

Muchas gracias a todos los que habéis intentado ayudarme. Habéis sido de mucha ayuda (y consuelo en la desesperación)

Saludos