Einzelnen Beitrag anzeigen

MrDevil

Registriert seit: 27. Dez 2006
Ort: Melle
62 Beiträge
 
Delphi 5 Standard
 
#1

Programm in der TNA Windows kann nicht herunterfahren

  Alt 5. Dez 2007, 02:02
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?!
Gruss Jens
  Mit Zitat antworten Zitat