Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.18;
Скачать: 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 вся ветка

Текущий архив: 2004.07.18;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.03 c
14-1088171705
ИМХО
2004-06-25 17:55
2004.07.18
Mail.RU совсем рехнулся


1-1088681196
Aleksandr.
2004-07-01 15:26
2004.07.18
Не могу сделать форму как шаблон


1-1088688828
Елена
2004-07-01 17:33
2004.07.18
Нужна компонента для настройки внешнего вида грида при отсутствии


1-1089048335
Arm79
2004-07-05 21:25
2004.07.18
Преобразование типов


1-1088939735
ida
2004-07-04 15:15
2004.07.18
принудиельно перенести строки