Как выключить, перезагрузить или завершить Windows?

Code:

Function SetPrivilege(aPrivilegeName: String; aEnabled: Boolean ): Boolean;

Var TPPrev,

     TP: TTokenPrivileges;

     Token: THandle;

     dwRetLen: DWord;

Begin

Result:=False;

OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, @Token );

TP.PrivilegeCount:=1;

IF LookupPrivilegeValue(nil,PChar(aPrivilegeName),TP.Privileges[0].LUID )) then

Begin

  IF aEnabled then TP.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED

             else TP.Privileges[0].Attributes:=0;

  dwRetLen:= 0;

  Result:=AdjustTokenPrivileges(Token,False,TP,SizeOf(TPPrev),TPPrev,dwRetLen);

End;

CloseHandle(Token);

End;