Программно дать права Администратора опытному пользователю

// Устанавливаем привелегии процессу. 
// аргументы - токен процесса (если 0, то своему процессу), имя привелегии, флаг вкл/выкл, флаг вышло/невышло
 
// Какие бывают привелегии:
 
////////////////////////////////////////////////////////////////////////
//               NT Defined Privileges                                //
////////////////////////////////////////////////////////////////////////
//"SeCreateTokenPrivilege"
//"SeAssignPrimaryTokenPrivilege"
//"SeLockMemoryPrivilege"
//"SeIncreaseQuotaPrivilege"
//"SeUnsolicitedInputPrivilege"
//"SeMachineAccountPrivilege"
//"SeTcbPrivilege"
//"SeSecurityPrivilege"
//"SeTakeOwnershipPrivilege"
//"SeLoadDriverPrivilege"
//"SeSystemProfilePrivilege"
//"SeSystemtimePrivilege"
//"SeProfileSingleProcessPrivilege"
//"SeIncreaseBasePriorityPrivilege"
//"SeCreatePagefilePrivilege"
//"SeCreatePermanentPrivilege"
//"SeBackupPrivilege"
//"SeRestorePrivilege"
//"SeShutdownPrivilege"
//"SeDebugPrivilege"
//"SeAuditPrivilege"
//"SeSystemEnvironmentPrivilege"
//"SeChangeNotifyPrivilege"
//"SeRemoteShutdownPrivilege"
 
function SetPrivilege(hToken: dword; lpPrivName : PChar; bEnable : Boolean) : Boolean;
var
   NameValue: Int64;
   tkp: TOKEN_PRIVILEGES;
   ReturnLength: Cardinal;
begin
   Result := False;
   if hToken = 0 then
              OpenProcessToken(INVALID_HANDLE_VALUE, TOKEN_ADJUST_PRIVILEGES
                                                      or TOKEN_QUERY, hToken);
   if not LookupPrivilegeValue(nil, lpPrivName, NameValue) then
    begin
     CloseHandle(hToken);
     exit;
    end;
   tkp.PrivilegeCount := 1;
   tkp.Privileges[0].Luid := NameValue;
   if bEnable then
          tkp.Privileges[0].Attributes := (SE_PRIVILEGE_ENABLED)
   else begin
          tkp.Privileges[0].Attributes := (SE_PRIVILEGE_ENABLED and
                                           tkp.Privileges[0].Attributes);
   end;
   AdjustTokenPrivileges(hToken, FALSE, tkp, sizeof(TOKEN_PRIVILEGES),
                         tkp, ReturnLength);
   if (GetLastError <> ERROR_SUCCESS) then exit;
 
   Result := TRUE;
   CloseHandle(hToken);
end;
 
// Проверка наличия привелегий у процесса.
function LookPrivilege(hToken: dword; lpPrivName : PChar; Typ : Byte) : Boolean;
var
   NameValue : Int64;
   tkp : PRIVILEGE_SET;
   pfResult : LongBool;
begin
 if hToken = 0 then
            OpenProcessToken(INVALID_HANDLE_VALUE, TOKEN_ADJUST_PRIVILEGES
                                                    or TOKEN_QUERY, hToken);
 LookupPrivilegeValue(nil, lpPrivName, NameValue);
 tkp.PrivilegeCount := 1;
 // tkp.Control:=PRIVILEGE_SET_ALL_NECESSARY;
 tkp.Privilege[0].Luid := NameValue;
 if Typ = 1 then
   tkp.Privilege[0].Attributes := SE_PRIVILEGE_ENABLED;
 if Typ = 2 then
   tkp.Privilege[0].Attributes := SE_PRIVILEGE_USED_FOR_ACCESS;
 PrivilegeCheck(hToken, tkp, pfResult);
 Result := pfResult
end;
// применение
SetPrivilege(0, "SeDebugPrivilege", True); // Теперь имеем привелегии отладчика