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