Программа мешает перезагрузиться Опции

[Unconnected]

Привет всем.

Сомневался между разделом Delphi и этим, запостил сюда. Есть программа на делфи, обычное такое VCL-приложение, не служба, никаких хуков, немного API (типа FindWindow, GetForeignWindow). И вот столкнулся с проблемой, что когда эта программа работает, то компьютер не получается перезагрузить или выключить (через Пуск - Выключить компьютер...). Все остальные приложения, работающие в тот момент, порядочно закрывается, а это висит, и перезагрузки/выключения не происходит. Без этого приложения всё нормально перезагружается. В журнале событий такое предупреждение (с жёлтым значком): "Попытка Перезагрузка HOME-********** не удалась". На данный момент кода с собой нет. Что это может быть?

[volvo]

Я сейчас тебя поцарапаю... Опять нестандартные действия? Кто мешает:

procedure TForm1.FormCreate(Sender: TObject);
begin
  WindowCanBeClosed := False; // Переменная описана в классе формы
end;

procedure TForm1.WMQueryEndSession(var Message: 
                 TWMQUERYENDSESSION);
begin
  WindowCanBeClosed := True;
  Inherited;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; 
var CanClose: Boolean);
begin
  CanClose := WindowCanBeClosed;
end;

?

Не надо принудительно завершать программу. Ибо результат - совсем не тот, как при нормальном завершении - деструкторы форм не отрабатывают, а если у тебя там какие-то логи пишутся?