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 that you have read and understand our privacy policy and code of conduct.

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