Windows下关机

花蜻宽

不过博主经常听到有人说这一API只在Windows 95/98/98SE/Me下有效，而在Windows NT/2000/XP下无效。　　其实这是不正确的，这一API在上述平台下均是有效的，只是我们在Windows NT/2000/XP平台下执行此函数之前，必须要获取得关机特权罢了，其实就算是Windows NT/2000/XP系统自身关机也必须要走这一流程的。
　　获取关机特权函数如下：
　　procedure Get_Shutdown_Privilege; //获得用户关机特权，仅对Windows NT/2000/XP
　　var
　　rl: Cardinal;
　　hToken: Cardinal;
　　tkp: TOKEN_PRIVILEGES;
　　begin
　　OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
　　if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid) then
　　begin
　　tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
　　tkp.PrivilegeCount := 1;
　　AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl);
　　end;
　　end;