[cdtj]

День добрый, в интернете имеется куча примеров с отловом закрытия окна, но сам я так и не смог разобраться. Вообщем ситуация такая, требуется чтобы программа не давала пользователю закрыть себя путем выключения компьютера (через shutdown.exe естественно). Везде предлагается решение подобного рода:

Код:

procedure TForm2.WMQUERYENDSESSION(var Msg: TMessage);
begin
  msg.Result:=0;
end;

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  canclose:=false
end;

procedure TForm2.WMENDSESSION(var Msg: TMessage);
begin
 Msg.Result:=0;
 { добавив этиу строку программа перезапускает себя, но это тоже не выход: ShellExecute(Handle,'Open','Project1.exe',nil,nil,1); }
end;

Компьютер не выключается, но программа всё равно закрывается.
Подскажите пожалуйста, как избежать закрытия программы?