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

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

Закрытие Windows [D5, Win95/98]


Сережа ©   (2002-08-16 09:27:00) 

Здравствуйте уважаемые мастера !Помогите пожалуйсто.
Как мне отловить событие завершения Windows ?
Мне нужно закрыть свою прогу перед завершением Windows
Помогите пожалуйсто, может код приведете как начинающему.
С уважением к мастерам и всем откликнувшимся.


Jeer   (2002-08-16 10:17:00) [1]

При завершении работы Windows каждое открытое приложение получает сообщение WM_QUERYENDSESSION, сопровождаемое сообщением WM_ENDSESSION, в случае, если закрытие сессии не отменено.

type
TfmMain = class(TfmStatusPgBar)
private
{ Private declarations }
procedure WMQueryOnExit(var Msg: TWMQueryEndSession); message WM_QUERYENDSESSION;
public
{ Public declarations }
end;


....
procedure TfmMain.WMQueryOnExit(var Msg: TWMQueryEndSession);
begin
if (Msg.Unused and ENDSESSION_LOGOFF)= 0 then
ShowMessage("Exit");
else
ShowMessage("LogOff");
end;


Сережа   (2002-08-16 09:33:00) [2]

Здравствуйте Dimka Maslov
Спосибо, а можно по подробнее


Dimka Maslov   (2002-08-16 09:30:00) [3]

В форме надо обрабатывать сообщения WM_QUERYENDSESSION и WM_ENDSESSION


Наверх

Титульная страница Поиск, карта сайта Написать письмо