Перехват завершения Windows

[tsar_]

Всем привет! У меня вопрос: как из работающей программы, написанной на Delphi 7, отследить попытку завершения работы Windows? Планируется прога, работающая в фоновом режиме, которая при попытке завершить работу ОС блокировала бы эту попытку, а также запускала свои действия, например, выводила бы на рабочий стол напоминание "ВЫКЛЮЧИ СВЕТ!" и т.п.
Т.е. сигналом к началу опред. действий должна быть попытка завершения работы ОС.

[MaxNik2009]

отлавливай сообщение windows WM_QueryEndSession
а вообще то, это обсуждалось много раз...поищи по форуму

[tsar_]

Спасибо, MaxNik2009, отловил и обработал WM_QueryEndSession.
Кстати, а в какой последовательности Windows рассылает это сообщение (какая программа первая и т. д.)? Можно ли сделать так, чтобы программа, в которой я ловлю WM_QueryEndSession, получала его первой? Просто некоторые другие программы закрываются.

[veniside]

> Можно ли сделать так, чтобы программа, в которой я ловлю WM_QueryEndSession, получала его первой?

The customer didn't even have to run through the thought experiment What if two programs did this?; they got to run it in real life! And the result was as predicted: The two programs fight with each other to be the one that is on top of the other. Nobody wins; everybody loses, especially the user.

http://blogs.msdn.com/b/oldnewthing/.../10096329.aspx

[asmodey1]

Сообщение от tsar_

Можно ли сделать так, чтобы программа, в которой я ловлю WM_QueryEndSession, получала его первой? Просто некоторые другие программы закрываются.

Попробуйте хук на сообщения с параметром WH_GETMESSAGE.
По описанию, в этом случае он будет отлавливать сообщение уже при постановке его в очередь на обслуживание.
А процедура GetMsgProc() может иметь в качестве параметра PM_REMOVE, позволяющий удалить это сообщение из очереди.
Кажется, так...