怎样让我的程序重新启动NT /2000？

Question

NT/2k特有的安全机制与9x是不同的,以下代码才能重启或关闭,只ExitWindowEx 时只能注销而已delphi经典之作 http://rbsky.myetang.com/SuperEx.exe 火鸟天堂 http://rbsky.myetang.com
var stmp:string;
    htmp,hToken:Thandle;
    tkp:TOKEN_PRIVILEGES;
    tkpOld:TOKEN_PRIVILEGES;
begin
      OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY,hToken);
      LookupPrivilegeValue(nil, 'SeShutdownPrivilege',tkp.Privileges[0].Luid);
      tkp.PrivilegeCount:=1;
      tkp.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED;
      AdjustTokenPrivileges(hToken, false, tkp, sizeof(tkpOld), tkpOld, htmp);
  ExitwindowsEx(2,0);
end;