Определить завершение работы Windows

{ 
  To detect a Windows Shutdown, you must trap the 
  WM_EndSession message. 
  Declare a message handling procedure in your Form's Private section. 

  Um herauszufinden, ob Windows heruntergefahren wird, muss 
  die WM_EndSession abgefangen werden. 
}


 type

   TForm1 = class
(TForm)
   private

     procedure
 WMEndSession(var
 Msg: TWMEndSession); message
 WM_ENDSESSION;
   public

   end
;

 implementation


 {$R *.DFM}

 procedure
 TForm1.WMEndSession(var
 Msg: TWMEndSession);
 begin

   if
 Msg.EndSession = True then

     ShowMessage('Windows is shutting down!');
   inherited
;
 end
;

Другое по теме:

• Регистрация программ в меню "Пуск" Windows
• Хочется создать ну очень маленький инсталлятор
• Запуск внешней программы и ожидание ее завершения