{
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)
privateprocedure WMEndSession(var Msg: TWMEndSession); message WM_ENDSESSION;
publicend;
implementation{$R *.DFM}procedure TForm1.WMEndSession(var Msg: TWMEndSession);
beginif Msg.EndSession = True then
ShowMessage("Windows is shutting down!");
inherited;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Определить завершение работы Windows", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!