| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Права админа [D6, NT4, Win2k, WinXP]

V-A-V ©   (2006-02-03 14:14:00) 

Как узнать имеет ли текущий юзер права администратора?

---

Dmitrij_K   (2006-02-03 16:25:00) [1]

2 [5]
Спасибо

---

Eraser   (2006-02-03 16:23:00) [2]

> Dmitrij_K   (03.02.06 16:21) [4]

Тем что на NT системе младше 2K работать не будет.

---

Dmitrij_K   (2006-02-03 16:21:00) [3]

Вопрос в тему.
Чем не подходит IsUserAnAdmin из shell32.dll?

---

V-A-V   (2006-02-03 15:03:00) [4]

благодарю, попробую.

---

Игорь Шевченко   (2006-02-03 14:24:00) [5]

http://www.swissdelphicenter.ch/torry/showcode.php?id=189

---

Eraser   (2006-02-03 14:20:00) [6]

> V-A-V ©   (03.02.06 14:14)

function IsAdmin: Boolean;
var
 hAccessToken: THandle;
 ptgGroups: PTokenGroups;
 dwInfoBufferSize: DWORD;
 psidAdministrators: PSID;
 x: Integer;
 bSuccess: BOOL;
begin
 Result   := False;
 bSuccess := OpenThreadToken(GetCurrentThread, TOKEN_QUERY, True,
   hAccessToken);
 if not bSuccess then
 begin
   if GetLastError = ERROR_NO_TOKEN then
     bSuccess := OpenProcessToken(GetCurrentProcess, TOKEN_QUERY,
       hAccessToken);
 end;
 if bSuccess then
 begin
   GetMem(ptgGroups, 1024);
   bSuccess := GetTokenInformation(hAccessToken, TokenGroups,
     ptgGroups, 1024, dwInfoBufferSize);
   CloseHandle(hAccessToken);
   if bSuccess then
   begin
     AllocateAndInitializeSid(SECURITY_NT_AUTHORITY, 2,
       SECURITY_BUILTIN_DOMAIN_RID, DOMAIN_ALIAS_RID_ADMINS,
       0, 0, 0, 0, 0, 0, psidAdministrators);
     {$R-}
     for x := 0 to ptgGroups.GroupCount - 1 do
       if EqualSid(psidAdministrators, ptgGroups.Groups[x].Sid) then
       begin
         Result := True;
         Break;
       end;
     {$R+}
     FreeSid(psidAdministrators);
   end;
   FreeMem(ptgGroups);
 end;
end;

Начиная с win2K есть ф-я IsUserAnAdmin.

---

Наверх