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

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

Админ: тегом SIZE пользуемся только при крайней необходимости, в остальном хватает обычного BOLD

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