1

Код написан на Delphi XE. В коде - при закрытии ПО - выдается запрос обычный (окно) - выход (y/n)? При перезагрузке ПК\Срв стало спрашивать - есть не завершенные приложения, и как раз на него ссылаться - типа окно запроса (но уже при процедуре перезапуска, само окно не показывается).

Как и куда воткнуть в проект код в Form OnClose\Destroy чтобы ПО знало, что его не юзер закрывает, а идет рибут? И чтобы вопросов не задавало и завершалось.

2

1 ответ 1

2

При завершении приложения всегда вызываются события TForm.OnDestory и TForm.OnCloseQuery. При перезагрузке не вызывается событие TForm.OnClose, соответственно Ваше сообщение надо перенести в него.

Если требуется более сложная логика, то необходимо перехватывать сообщение WinApi WM_ENDSESSION, оно посылается при завершении работы Windows.

TMyForm = class(TForm)
protected
  procedure WMEndSession(var Message: TWMEndSession); message WM_ENDSESSION;
end;
1
  • 1
    кажется, обработка WM_ENDSESSION это наоборот более простая логика.
    – teran
    10 апр 2021 в 16:27

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.