net_lim.rar_The Privileges_delphi Privilege_delphi PrivilegeS_to

procedure tform1.ShutDown procedure AdjustToken() //获取关机控制权 var hdlProcessHandle, hdlTokenHandle, lBufferNeeded: Cardinal tmpLuid: Int64 //tkpPrivilegeCount: Int64 tkp, tkpNewButIgnored: TOKEN_PRIVILEGES Privilege: array[0..0] of _LUID_AND_ATTRIBUTES begin hdlProcessHandle := GetCurrentProcess OpenProcessToken(hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY), hdlTokenHandle) // Get the LUID for shutdown privilege. LookupPrivilegeValue( , SeShutdownPrivilege , tmpLuid) Privilege[0].Luid := tmpLuid Privilege[0].Attributes := SE_PRIVILEGE_ENABLED tkp.PrivilegeCount := 1 // One privilege to set tkp.Privileges[0] := Privilege[0] // Enable the shutdown privilege in the access token of this process. AdjustTokenPrivileges(hdlTokenHandle,