Rechner fährt nicht mehr herunter

[HuxXx]

Hi...

vllt könnte dir das helfen:

Dein Programm reagiert ja drauf, wenn der Rechner runterfährt, also einfach das hier in die WMQUERYSESSION Procedur einfügen.

Delphi-Quellcode:

procedure TMainForm.WMQUERYENDSESSION(var msg: TMessage);
begin
// In die TNA minimieren.
  msg.Result := true;


// bzw. das Ding beenden.
Halt;
end;

Greetz by Hux

// Edit: arrrgh, das [b] funktioniert im CodeTeil ja garnicht -.-