НОМЕР ДОКУМЕНТА: TI3133
ПРОДУКТ: Delphi
Версия:
1.0
ОС: Windows
Дата: 1 октября, 1996
Тема:
Определение завершения работы Windows
Существует ли возможность определения завершения работы Windows для
нормального завершения работы работающего приложения Delphi?
Самым простым решением является создание обработчика события главной формы
OnCloseQuery. Данное событие возникает как результат сообщения
WM_QUERYENDSESSION, которое посылается всем работающим приложениям Windows в
момент инициализации процесса окончания работы Windows. Логическая переменная
CanClose, передаваемая обработчику как var-параметр, может позволить программе
(и Windows) завершить свою работу, если имеет значение True, значение же False
не позволит программе завершить свою работу.
Следующий код демонстрирует как можно воспользоваться данным событием.
Демонстрационный код
| |
|
procedure
TForm1.FormCloseQuery(Sender: TObject; var CanClose:
Boolean);
begin
{Спрашиваем пользователя, если инициировано
завершение работы.}
if MessageDlg('Вы уверены?',
mtConfirmation, mbYesNoCancel, 0) = mrYes
then CanClose := true {Разрешаем
завершение работы.}
else CanClose := false; {Не разрешаем
завершение работы.} end; | | 
