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

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

Поучение имени Юзверя..... [D6, WinME, NT4, Win2k, WinXP]

Azerg ©   (2002-11-14 13:55:00) 

Уважаемые мастаки, подскажите пожалуйста как получить имя юзера под которым запущена программа-процесс

---

AZerg   (2002-11-14 16:00:00) [1]

Спасибо:)))

---

Eugen Honeker   (2002-11-14 15:47:00) [2]

добавление:

для системных процессов нужно "SeDebugPrivilege".

если кто то знает лучшый вариант, пожалуста поделитесь.

---

Eugen Honeker   (2002-11-14 15:43:00) [3]


function GetProcessOwner(dwProcessID: DWORD; lpBuffer: PChar; nBufferLength: DWORD): boolean;
type
PTOKEN_USER = ^TOKEN_USER;
TOKEN_USER = record
User: SID_AND_ATTRIBUTES;
end;

var
hProcess,
hToken : THANDLE;
tinfo : array[0..255]of byte;
dwTmp: DWORD;
snu: SID_NAME_USE;
lpDomain: array[0..127]of char;
cbUser,
cbDomain: DWORD;
begin
result:= false;
hProcess:= OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, FALSE, dwProcessID);
if (hProcess = 0) then exit;

hToken:= 0;
if OpenProcessToken(hProcess, TOKEN_QUERY, hToken) then
try
if GetTokenInformation(hToken, TokenUser, @tinfo[0], sizeof(tinfo), dwTmp) then
if LookupAccountSid(nil, PTOKEN_USER(@tinfo[0]).User.Sid, lpBuffer, cbUser, lpDomain, cbDomain, snu) then
result:= (cbUser <= nBufferLength);
finally
CloseHandle(hToken);
end;
CloseHandle(hProcess);
end;


пример:

var
lpUserName: array[0..15]of char;
...
if GetProcessOwner({PID}, lpUserName, sizeof(lpUserName)) then
MessageBox(0, lpUserName, nil, 144);
...


---

Marcus   (2002-11-14 14:14:00) [4]

Может что-то подобное поможет:
GetKernelObjectSecurity(OpenProcess(..., ), OWNER_SECURITY_INFORMATION, sd, ...);
GetSecurityDescriptorOwner(sd, sid, ...
LookupAccountSid(nil, sid, ...

---

Наверх