Ejecutar programa al apagar

[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.