Anwendung im Tray = Rechner fährt nicht runter???

[worker]

Ein einfaches

Delphi-Quellcode:

procedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
   inherited;
   Message.Result := 1;
end;

tut's auch