var hToken: THANDLE; Tkp:TOKEN_PRIVILEGES; Nothing:Cardinal; 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); ExitWindowsEx(EWX_ShutDown, 0) end;
winnt 下关机代码
最新推荐文章于 2021-05-22 03:04:10 发布