![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
перезагрузить при наличии 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;