Delphi 自动关机

 最近在做个项目,客户要求终端用户退出系统则关机,于是在网上找到这段代码:

 1 var   
 2   VerInfo:TOSVersionInfo;
 3   hToken:THANDLE;
 4   tkp:TOKEN_PRIVILEGES;
 5   Nothing:Cardinal;
 6 begin
 7   VerInfo.dwOSVersionInfoSize:=SizeOf(VerInfo);
 8   GetVersionEx(VerInfo);
 9   if VerInfo.dwPlatformId=VER_PLATFORM_WIN32_NT then
     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,   0,nil,   Nothing);
     End;
   ExitWindowsEx(EWX_POWEROFF,0);//这句就是关机
   //ExitWindowsEx(EWX_REBOOT,0);
 end