WM_QueryEndSession отловить событие

[volod3000]

Здравствуйте !

Вот так можно отловить событие выключения компьютера:

procedure TForm1.WMQueryEndSession(var Msg : TWMQueryEndSession) ;
begin
if MessageDlg('Закрыть Windows ?',
               mtConfirmation,
               [mbYes,mbNo], 0) = mrNo then
   Msg.Result := 0
else begin
   Msg.Result := 1;
   Label1.Caption:='Windows Выключается';
end;
end;

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

Если не трудно с примерами,
спасибо.

[Stilet]

Тут обсуждалось: http://www.programmersforum.ru/showthread.php?t=264419

[volod3000]

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

Тут обсуждалось: http://www.programmersforum.ru/showthread.php?t=264419

Спасибо, буду внимательней.

[Stilet]

Да ладн... Бывает )