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

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

Как программно узнать название группы администраторов?


kingdom ©   (2003-01-27 11:47:00) 

На русских виндах она называется "Администраторы",
на английских "Administrators" и вообще пользователь может ее переименовать!

А как узнать название группы?


kingdom   (2003-01-27 17:41:00) [1]

Вот разобрался, вожет кому еще пригодиться


function GetAdminGroup : string;
var
SID : PSID;
GroupName, DomainName : array[0..30]of Char;
GroupLen, DomainLen : DWORD;
peUse : SID_NAME_USE;
begin
GroupLen := Length(GroupName);
DomainLen := Length(DomainName);
ConvertStringSidToSid("S-1-5-32-544", SID);
LookupAccountSid(
nil,
SID,
@GroupName,
GroupLen,
@DomainName,
DomainLen,
peUse
);
result := GroupName;
end;


Игорь Шевченко   (2003-01-27 13:53:00) [2]

У меня готового нет, пример у Рихтера в синей книге. (Рихтер, Кларк, разработка серверных приложений для Windows 2000)


kingdom   (2003-01-27 13:31:00) [3]

>Игорь Шевченко
А у Вас есть какой-нибудь пример, а то у меня почему то ошибку постоянно выдает.


Игорь Шевченко   (2003-01-27 11:59:00) [4]

LookupAccountName


Наверх

Титульная страница Поиск, карта сайта Написать письмо