Последние записи

made in programmersforum 5

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

21st
Мар

Получить и обработать сообщение WM_QUERYENDSESSION программой

Posted by Chas under Delphi

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

Человек_Борща

Procedure TForm1.WMQueryEndSession(Var Message: TMessage);

 begin

 inherited;

 Application.Terminate; // пробовал и Form1.Close;

 Message.Result:=1;

 End;

inherited; Должо быть вызвано после вашего кода.
Иначе ваша програма закроется не закончив собственную финализацию(Сохранение данных, уничтожение обьектов, подготовка к завершению).

Procedure TForm1.WMQueryEndSession(Var Message: TMessage);

 begin

 //Сдесь финализируете данные, но не уничтожаете программу

 Message.Result:=1;

  inherited;

 End;

После QUERTYENDSESSION ваша программа получит WM_ENDSESSION и тогда экземпляр вашей программы с легкостью закроется т.к. вы уже были подготовлены к закрытию при помощи QUERTYENDSESSION

Пост написан при поддержке Мегатекст ру. Мегатекст ру — профессиональный юридическийперевод учредительных документов

тема на форуме