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

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

Текущий пользователь - администратор [D7, WinXP]

VladimirVladimirovich ©   (2005-10-24 18:52:00) 

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

Спасибо!

---

VladimirVladimirovich   (2005-10-24 21:04:00) [1]

> begin...end ©   (24.10.05 20:29) [6]

Ну это само собой, но и ошибка там тоже не нужна. Наверное лучше эту библиотеку динамически подключать... да и специально для NT4 прийдётся всё равно [2] реализовывать.


> umbra ©   (24.10.05 20:41) [8]

А это уже военная тайна )

---

begin...end   (2005-10-24 20:42:00) [2]

> Джо ©   (24.10.05 20:37) [7]

IsUserAdmin, в отличие от IsUserAnAdmin, недокументирована в MSDN.

---

umbra   (2005-10-24 20:41:00) [3]

Удалено модератором
Примечание: Offtopic

---

Джо   (2005-10-24 20:37:00) [4]

>  [4] VladimirVladimirovich   (24.10.05 20:24)
>
> > begin...end ©   (24.10.05 19:33) [3]
>
> Спасибо. Действительно всё гораздо проще!

В статье по ссылке в [1] упоминается столь же простая функция IsUserAdmin, находящяяся в setupapi.dll. Так что все ещепроще, просто нужно внимательно читать ответы.

---

begin...end   (2005-10-24 20:29:00) [5]

К тому же, в 9x эта функция и не нужна...
:-)

---

begin...end   (2005-10-24 20:27:00) [6]

> VladimirVladimirovich   (24.10.05 20:24) [4]
> Если её импортировать в 9x напишет, что ф-я не найдена?

Да. Отвечая в [3], я ориентировался на заголовок ветки, где указана XP.

---

VladimirVladimirovich   (2005-10-24 20:24:00) [7]

> begin...end ©   (24.10.05 19:33) [3]

Спасибо. Действительно всё гораздо проще! Если её импортировать в 9x напишет, что ф-я не найдена?

---

begin...end   (2005-10-24 19:33:00) [8]

> VladimirVladimirovich   (24.10.05 18:52)

См. в MSDN описание функции IsUserAnAdmin.
Импортируйте её из shell32.dll, и задача решится в одну строчку.

---

VladimirVladimirovich   (2005-10-24 19:12:00) [9]

> clickmaker ©   (24.10.05 19:10) [1]

Спасибо за ссылку, сайт хороший.

Вот нашёл ещё пример, уже на Делфи:
const

 SECURITY_NT_AUTHORITY: TSIDIdentifierAuthority =

   (Value: (0, 0, 0, 0, 0, 5));

 SECURITY_BUILTIN_DOMAIN_RID = $00000020;

 DOMAIN_ALIAS_RID_ADMINS = $00000220;

  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;

---

clickmaker   (2005-10-24 19:10:00) [10]

http://www.all-net.ru/Library/Articles/Programming/BaseService/Security/IsUsrAdm/

---

Наверх