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

Отловить сообщение завршения Windows   Найти похожие ветки 

← →
AVK   (2004-06-04 22:37) [0]

Проблема в том, что моя программа сидит в трее и при ее закрытии выводит диологовое окно подтверждения закрытия. при завершении работы Windows он неможет ее сам закрыть. Надо поймать такое сообщение и не выводить диалог.
P.S. Если такой вопрос уже звучал и я его не заметил просто киньте ссылочку.

---

← →
sniknik ©   (2004-06-05 01:54) [1]

http://www.delphimaster.ru/cgi-bin/forum.pl?n=5&search=WM_QUERYENDSESSION

---

← →
grom   (2004-06-05 14:29) [2]

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin

end;

---

← →
AVK   (2004-06-06 11:13) [3]


...
procedure WMENDSESSION(var M:TMessage);message WM_ENDSESSION;
...
procedure TForm1.WMQUERYENDSESSION(var M: TMessage);
begin
 WINDOWSENDSESSION := true;//глобальная переменная. Если true, то не показываем диалог о закрытии приложения.
 Close;
end;

При завершении работы/перезагрузке Windows приложение закрывается, но Windows не завершает работу и не перезагружается. Чего не хватает в коде?

---

← →
AVK   (2004-06-06 12:45) [4]

Прошу прощения, объявлена процедура WMQUERYENDSESSION, а не WMENDSESSION.

---

← →
Kair ©   (2004-06-06 20:01) [5]

Может у тебя в системе какая-то еще программа сидит, в которой написавший её программист не предусмотрел отлов wm_QueryEndSession...

---

← →
sniknik ©   (2004-06-06 20:14) [6]

попробуй так
procedure TForm1.OnCloseSession(var Mess: TMessage); //WM_QUERYENDSESSION
begin
 try
   inherited;
   Destroy;
 except {NOTHING} end;
end;


---

← →
AVK   (2004-06-06 22:39) [7]

Не помогло. Даже если я делаю так
procedure TForm1.WMQUERYENDSESSION(var M: TMessage);//WM_QUERYENDSESSION
begin
  inherited;
end;
то все равно приложение не может завершить работу(диалог о подтверждении завершения отключен). Если закоментировать данную процедуру, то все работает. Или я как-то некоректно ее обрабатываю или что... я не знаю.

---

← →
Cobalt ©   (2004-06-06 23:26) [8]

в переменной m.Result (кажется) надо возвращать какое-то значение.

---

← →
AVK   (2004-06-07 16:45) [9]

Да вроде единичку надо, но все равно не получается.

---

← →
AVK   (2004-06-07 16:46) [10]

Да вроде единичку надо, но все равно не получается.

---

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

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



Память: 0.47 MB
Время: 0.02 c