Programm in der TNA Windows kann nicht herunterfahren

[MrDevil]

hallo,


egal was ich mache Abmelden oder neustarten oder herunterfahren - mein Programm verhindert das..

dann fand cih hier in der CodeLib diesen Code:

Delphi-Quellcode:

procedure tmain_form.WMQUERYENDSESSION(var msg: TMessage); 
begin 
  msg.Result := 1;
  close;
end;

So weit so gut nun geht es aber erst nach dem ich 2 mal auf abmelden klickte oder 2 mal auf neustarten klickte.



Was noch merkwürdiger ist, ist wenn ich dies nehme

Delphi-Quellcode:

procedure tmain_form.WMQUERYENDSESSION(var msg: TMessage); 
begin 
ShowMessage('Windows geht nu put'); // scherzhaft
  msg.Result := 1;
  close;
end;

So erscheint die MEssage NICHT schon beim ersten versuch des reboots /abmelden sondern erst beim 2 mal


Also so wie ich das nun sehenreagiert aus welchen grunde mein programm erst beim zweiten mal sende der Nachricht von Windows auf die WMQUERYENDSESSION


Jemand eine idee?!