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

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

Права пользователя при запуске программы [Win2k, WinXP]

TAndrew ©   (2002-08-28 19:04:00) 

Как узнать, с какими правами запущена программа - администратор, пользователь (например, дозволено ли изменение ключей реестра)

---

ZZ   (2002-08-30 04:28:00) [1]

с какими правами запущена программа
и
например, дозволено ли изменение ключей реестра
2 разные вещи!! На первый вопрос ответили. На второй - проще всего попытатся прочитать/изменить

---

Eugene   (2002-08-30 01:22:00) [2]


Function FssIsAdmin: Boolean;
const
SECURITY_NT_AUTHORITY: SID_IDENTIFIER_AUTHORITY = (Value: (0,0,0,0,0,5)); // ntifs
SECURITY_BUILTIN_DOMAIN_RID: DWORD = $00000020;
DOMAIN_ALIAS_RID_ADMINS: DWORD = $00000220;
DOMAIN_ALIAS_RID_USERS : DWORD = $00000221;
DOMAIN_ALIAS_RID_GUESTS: DWORD = $00000222;
DOMAIN_ALIAS_RID_POWER_: DWORD = $00000223;
var
hAccessToken : THandle;
ptgGroups : PTokenGroups;
dwInfoBufferSize : DWORD;
psidAdministrators : PSID;
x : Integer;
bSuccess : BOOL;
begin
Result:=False;
try
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);
try
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;
finally
FreeMem(ptgGroups);
end;
end;
except
Result:=False;
end;
end;


---

Наверх