Cerrar aplicación al apagar el sistema

MDSato · #1 23-11-2005

Estimados colegas,

Tengo un problema con el apagado del sistema y la aplicación que desarrollo. Lo que me gustaría conseguir es que cuando apaguen el sistema (esto es, CERRAR SESION, APAGAR EL SISTEMA o REINICIAR) mi aplicación se cerrara automáticamente.

He aplicado dos soluciones descritas en este foro. Una la de Roman (http://www.clubdelphi.com/foros/show...60&postcount=2) redefiniendo los mensajes de este modo:

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

y también he probado con la solución descrita aquí: http://www.delphifaq.com/faq/delphi/vcl/f285.shtml

Con las dos alternativas consigo lo mismo... Efectivamente mi aplicación se cierra correctamente. El problema es que por algún motivo, detiene el apagado de Windows que se ha solicitado, y por tanto el ordenador continua encendido (aunque con mi aplicación cerrada). ¿Alguien podría darme alguna orientación al respecto?
Muchas gracias por adelantado.