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

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

Как работать с WM_QUERYENDSESSION? [D7, WinXP]

ronyn ©   (2005-08-18 00:17:00) 

Как работать с WM_QUERYENDSESSION? ( ПРОГРАММА МИНИМИЗИРОВАНА В ТРЕЙ).Заранее благодарен.

---

tesseract   (2005-08-22 09:46:00) [1]

>>WM_QUERYENDSESSION операционка уже не дает создавать новые окна,
Зависит от операционки /установленных патчей/ настроек реестра.
но чаще всего - реально бесконечный shutdown.

---

Alex Konshin   (2005-08-20 12:58:00) [2]

Плавали, знаем.

А ты попробуй по OnCloseQuery задавать вопрос на закрытие (что бывает в таких приложениях довольно часто) и не понимать в этом обработчике специально WM_QUERYENDSESSION. В зависимости от операционки получишь разные эффекты, вплоть до бесконечного shutdown.
Я уже точно не помню, давно это было, но вроде суть проблемы в том, что после получения WM_QUERYENDSESSION операционка уже не дает создавать новые окна, и, когда мы хотим задать этот самый вопрос, то он не появляется на экране, но приложение все равно продолжает ждать, когда же мы нажмем на нем Ok.

---

tesseract   (2005-08-20 12:06:00) [3]

>> Я не случайно упомянул еще и обработчик OnCloseQuery
CloseQuery - запрос на закрытие окна, а не приложения, запрос на закрытие приложения WM_QUIT и WM_ENDSESSION (WM_QUERYENDSESSION просто запрос, можно вернуть 0, таким образом послать винду и она перестанет посылать больше подобные сообщения и не станет выключаться!)
WM_QUIT, обрабатывается Tapplication свой так просто не впихнёшь.
>>а неверная логика при обработке WM_QUERYENDSESSION приведет к зависанию при shutdown.
не к зависанию, а к насильному завершению  твоего процесса.

---

Alex Konshin   (2005-08-19 14:06:00) [4]

Приблизительно так:


procedure TfmServerToolBar.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
 FQuietClose := True;
 Message.Result := Integer(CallTerminateProcs);
 Application.Terminate;
end;

procedure TfmServerToolBar.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if not FQuietClose then
 begin
   case Windows.MessageBox( Handle, PChar('Вы действительно хотите завершить "'+Caption+'" ?'), 'Завершение',
     MB_YESNOCANCEL or MB_ICONQUESTION or MB_DEFBUTTON1 or MB_SETFOREGROUND or MB_APPLMODAL ) of
   IDYES:
     begin
       FQuietClose := True;
       CanClose := True;
     end;
   IDNO:
     begin
       CanClose := False;
       Application.Minimize;
     end;
   else
     CanClose := False;
     Exit;
   end;
 end;
end;


Я не случайно упомянул еще и обработчик OnCloseQuery, потому как обычно в таких приложениях он есть, а неверная логика при обработке WM_QUERYENDSESSION приведет к зависанию при shutdown.

---

tesseract   (2005-08-18 18:02:00) [5]

Если есть объект Tapplication то Application.onMessage

---

Eraser   (2005-08-18 00:54:00) [6]

ronyn   (18.08.05 00:17)

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/wm_queryendsession.asp

---

Наверх