Скачать: CL | DM;

перезагрузить при наличии TNMUDP   Найти похожие ветки 

← →
lab   (2002-05-08 11:35) [0]

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

---

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

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

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

---

← →
lab   (2002-05-08 13:10) [2]

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

---

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

А, пардон

Msg.Result := Integer(True);

Вроде так.

---

← →
lab   (2002-05-09 09:08) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c