Rechner Herunterfahren geht nicht

[franktron]

Meine Programm soll den PC Runterfahren, tut es aber nicht es beendet sich zwar aber der PC bleibt an.

Hier der Code
http://www.delphipraxis.net/29-abmel...-98-me-nt.html

Delphi-Quellcode:

if Buffer='SHUTDOWN' then
  Begin
    ExitWin(EWX_SHUTDOWN);
    Close;
  End;