VPF::Как узнать? Если ли у программы права для

Gnusss

Дата 8.12.2005, 23:24 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 190
Регистрация: 19.1.2005

Репутация: нет
Всего: нет

Привет всем!

Как можно узнать есть ли у моей программы права для редактирования ключа реестра HKEY_LOCAL_MACHINE?

Заранее спасибо за ответ!

Poseidon

Дата 9.12.2005, 01:14 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133

Как известно, HKEY_LOCAL_MACHINE может редактировать только админ системы. Поэтому твоя задача сводится к определению привелегий пользователя, каторый запустил прогу.

Код

type 
  PTOKEN_GROUPS = TOKEN_GROUPS^; 

function RunningAsAdministrator(): Boolean; 
var 
  SystemSidAuthority: SID_IDENTIFIER_AUTHORITY = SECURITY_NT_AUTHORITY; 
  psidAdmin: PSID; 
  ptg: PTOKEN_GROUPS = nil; 
  htkThread: Integer; { HANDLE } 
  cbTokenGroups: Longint; { DWORD } 
  iGroup: Longint; { DWORD } 
  bAdmin: Boolean; 
begin 
  Result := false; 
  if not OpenThreadToken(GetCurrentThread(), // get security token 
    TOKEN_QUERY, FALSE, htkThread) then 
    if GetLastError() = ERROR_NO_TOKEN then 
    begin 
      if not OpenProcessToken(GetCurrentProcess(), 
        TOKEN_QUERY, htkThread) then 
        Exit; 
    end 
    else 
      Exit; 

  if GetTokenInformation(htkThread, // get #of groups 
    TokenGroups, nil, 0, cbTokenGroups) then 
    Exit; 

  if GetLastError() <> ERROR_INSUFFICIENT_BUFFER then 
    Exit; 

  ptg := PTOKEN_GROUPS(getmem(cbTokenGroups)); 
  if not Assigned(ptg) then 
    Exit; 

  if not GetTokenInformation(htkThread, // get groups 
    TokenGroups, ptg, cbTokenGroups, cbTokenGroups) then 
    Exit; 

  if not AllocateAndInitializeSid(SystemSidAuthority, 
    2, SECURITY_BUILTIN_DOMAIN_RID, DOMAIN_ALIAS_RID_ADMINS, 
    0, 0, 0, 0, 0, 0, psidAdmin) then 
    Exit; 

  iGroup := 0; 
  while iGroup < ptg^.GroupCount do // check administrator group 
  begin 
    if EqualSid(ptg^.Groups[iGroup].Sid, psidAdmin) then 
    begin 
      Result := TRUE; 
      break; 
    end; 
    Inc(iGroup); 
  end; 
  FreeSid(psidAdmin); 
end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Gnusss

Дата 9.12.2005, 01:42 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 190
Регистрация: 19.1.2005

Репутация: нет
Всего: нет

У WinXp(в других незнаю) есть еще группа пользователей "Продвинутые пользователи" они тоже имеют пава на редактирование HKEY_LOCAL_MACHINE.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »