Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

перезагрузить при наличии TNMUDP [D6, WinXP]


lab ©   (2002-05-08 11:35:00) 

На форме есть компонент TNMUDP он отлавливает сообщение WM_QUERYENDSESSION но ничего с ним не делает. И комп не выключается и не перегружается, как правильно обработать WM_QUERYENDSESSION, чтобы не закрывая мою программу можно было бы выключить или перегрузить компю.


lab   (2002-05-09 09:08:00) [1]

Огромное спасибо, все работает.


Дмитрий Баранов   (2002-05-08 13:29:00) [2]

А, пардон

Msg.Result := Integer(True);

Вроде так.


lab   (2002-05-08 13:10:00) [3]

Спасибо за ответ, но мне нужно, чтобы не тоько программа завершалась, но и продолжалось выключение компьютера.


Дмитрий Баранов   (2002-05-08 11:46:00) [4]

Form1 = class(TForm1)
...
procedure WMEndS(var Msg: TMessage); message WM_QUERYENDSESSION;

procedure Form1.WMEndS;
...
Udp1.Free;
Application.Terminate; // по желанию
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо