Получить и обработать сообщение 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

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

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

Похожие статьи

• Посоветуйте ПО для защиты ПК с пред-настройкой «групп файлов». На примере Comodo.
• Handle окна по файлу EXE
• При нажатии кнопки открыть сайт
• Получить время через интернет
• Сеть на ассемблере: проблема
• Получить иконку файла
• Как узнать пользовательскую директорию
• Запустить выбранные адреса в checklistbox
• Управление отображением рабочего стола Windows на нескольких экранах
• Вставить TBitMap в RichEdit