Как перехватить завершение работы Windows ?

← →
_Ivan (2005-07-06 18:29) [0]

Подскажите как из своей программы перехватить завершение/перезагрузку Windows ?
Спасибо!

← →
begin...end © (2005-07-06 18:44) [1]

WM_ENDSESSION ?

← →
Ванечка (2005-07-07 09:48) [2]

Вот держи:
{ 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;

← →
_Ivan (2005-07-07 11:51) [3]

>Ванечка (07.07.05 09:48) [2]
Спасибо!
А как быть, если приложение не имеет формы ?

← →
Digitman © (2005-07-07 11:55) [4]

> как быть, если приложение не имеет формы ?

Application используется ?

← →
Игорь Шевченко © (2005-07-07 12:00) [5]

> А как быть, если приложение не имеет формы ?

Для консольных - SetConsoleCtrlHandler и обрабатывать CTRL_SHUTDOWN_EVENT

← →
_Ivan (2005-07-07 12:00) [6]

← →
_Ivan (2005-07-07 12:01) [7]

Спасибо, сейчас попробую

> _Ivan (07.07.05 12:00) [6]

для GUI-приложений :

hwnd := CreateWindow(..);
..
while GetMessage(hwnd, Msg, 0, 0, 0) do begin
if Msg.message = WM_ENDSESSION then ..;
TranslateMessage(Msg);
DispatchMessage(Msg);
end;

Как перехватить завершение работы Windows ? Найти похожие ветки