[Решено] Корректное завершение программы

[novo]

Доброго времени

Возникла необходимость сохранения данных непосредственно перед завершение работы windows (выключение,перезагрузка), в случае аварийных способов отключения, я снимаю с себя ответственность за потерянные данные, это так к слову.

Пробовал отслеживать системные сообщения:

1. procedure WMQUERYENDSESSION(var Msg: TMessage);message WM_QUERYENDSESSION;

2. procedure WMEndSession(var Msg: TWMEndSession); message WM_ENDSESSION;

Результата никакого, возможно, я их не корректно использую.

Подскажите, как осуществить подобное?

[Odyssey]

Application.OnEndSession
Application.OnQueryEndSession
Воспользоваться этими событиями можно через компонент TApplicationProperties.