Завершение программы при выключении ПК (во время sleep-а)

[MaxOz]

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

Пробовал ловить WM_QUERYENDSESSION:

private
{ Private declarations }
Procedure WMQueryEndSession(Var Message: TMessage);
Message WM_QUERYENDSESSION;


Procedure TForm1.WMQueryEndSession(Var Message: TMessage);
begin
inherited;
Application.Terminate; // пробовал и Form1.Close;
Message.Result:=1;
End;

не помогает

Может sleep чем-то заменить или какие другие варианты есть? Может я не правильно отлавливаю WM_QUERYENDSESSION?

сам sleep и все вычисления в другой процедуре, может их как-то завязать нужно?

[Аватар]

При выполнении sleep сообщения не обрабатываются. Попробуйте с помощью таймера это сделать

[MaxOz]

Аватар
Спасибо за предложение, но придумал другой вариант:
поставил sleep в цикл, уменьшил задержку и после sleepа вставил Application.ProcessMessages()
теперь срабатывает нормально

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

Не правильно делаете!

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

[FaTaL]

И всё таки в Вашем случае правильнее удобнее будет использовать таймер.

[MaxOz]

Человек_Борща Спасибо.
inherited; - поменял положение, а финализировать-то в проге особо нечего, объекты не использую, только несколько переменных
FaTaL
Вариант с таймером еще рассмотрю

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

не опязательно таймер. Просто удерживайте QUERTYENDSESSION до завершения sleep'а.

перед слипом ставье некоторую перемнную в true, потом While smth do begin end else begin nherited; end; все.

[MaxOz]

таки поставлю точку в теме.

таймер оказался наилучшим вариантом: код проще, sleep, так или иначе, теперь не мешает никаким процессам.

Всем спасибо за участие.