Function EnableProcessPrivilege(Const aPrivilegeName: String; DoEnable: Bool; aProcessHandle: THandle = 0): Bool;
  Var
    HToken: THandle;
    tkp: TOKEN_PRIVILEGES;
    aProcHndl: THandle;
  Begin
    hToken := 0;
    If aProcessHandle = 0 Then aProcHndl := GetCurrentProcess
    Else aProcHndl := aProcessHandle;
    Result := OpenProcessToken(aProcHndl, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, hToken);
    If HToken = 0 Then Exit;
    Try
      If Not Result Then Exit;
      Result := LookupPrivilegeValue(Nil, PChar(aPrivilegeName), tkp.Privileges[0].Luid);
      If Not Result Then Exit;
      tkp.PrivilegeCount := 1;
      If DoEnable Then tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
      Else tkp.Privileges[0].Attributes := 0;
      Result := AdjustTokenPrivileges(HToken, False, tkp, 0, Nil, Nil);
    Finally
      CloseHandle(HToken);
    End;
  End;