Закрытие Windows

← →
Сережа (2002-08-16 09:27) [0]

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

← →
Dimka Maslov © (2002-08-16 09:30) [1]

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

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

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

При завершении работы 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;

Закрытие Windows Найти похожие ветки