[Delphi] Jak wyłączyć komputer... ... windows XP??

Jak można wyłączyć komputer procujący pod windows XP??
Komenda z FAQ nie działa
ExitWindowsEx(EWX_POWEROFF,0);
???
Z góry wielkie dzieki B)

---

procedure TForm1.Button1Click(Sender: TObject); var h_Token : THandle;   tp : TTokenPrivileges;   pvs : PTokenPrivileges;   retval: Cardinal; begin if not OpenProcessToken( GetCurrentProcess (),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, h_Token) then exit; if not LookupPrivilegeValue(nil,'SeShutdownPrivilege',tp.Privileges[0].Luid) then exit; tp.PrivilegeCount := 1; tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; pvs := nil; if not AdjustTokenPrivileges(h_Token, false, tp, 0, pvs, retval) then exit; ExitWindowsEx(EWX_POWEROFF,0); end;

Powyższa procedura spowoduje zamknięcie systemu - określa to flaga EWX_POWEROFF.

Natomiast dla restartu i wylogowania trzeba użyć odpowiednio:
EWX_REBOOT - restart
EWX_LOGOFF - wylogowanie

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl