Ejecutar programa al apagar

[Neftali [Germán.Estévez]]

Creo que puedes detectarlo interceptando el mensaje WM_QUERYENDSESSION.

...Añado/Edito:

Segun la API, después de que windows envía este mensaje, y si todas las aplicaciones se pueden cerrar, se envía otro WM_ENDSESSION cuyo parámetro wParam es True si se está haciendo un ShutDown.

Añado:
Buscando por ese mensaje, he llegado a este truco; A ver si te sirve.

[mierda]

Hola, este es el codigo q yo utilizo cuando van a apagar o van a reiniciar

Código Delphi [-]
 
    procedure WMQueryEndSession (var Msg: TWMQueryEndSession);
    message WM_QueryEndSession; 
  

procedure TFprincipal.WMQueryEndSession(var Msg: TWMQueryEndSession);
begin

Msg.Result := 0;
// aki va todo lo q quieras hacer
try
  if (conectado = true) and (Timerconectar.Enabled = false) then
    guarda_valores;
  except
    end;
 
// aqui ves si se apaga o reinicia
 
{if EndSessionFlags <> 0 then
  ExitWindowsEx(EWX_LOGOFF,0) // Cerramos windows
else
  ExitWindowsEx(EWX_SHUTDOWN,0);    // Apagamos Windows
}
 
// ya le decimos que continue con el apagado/reiniciado
Msg.Result := 1;
 
end;

Un saludo.