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.