Главная страницаОбратная связьКарта сайта

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  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;

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Определить завершение работы Windows", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info