Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.30;
Скачать: CL | DM;

Вниз

Поучение имени Юзверя.....   Найти похожие ветки 

 
Azerg ©   (2002-11-14 13:55) [0]

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


 
Marcus   (2002-11-14 14:14) [1]

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


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




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);
...


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

добавление:

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

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


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

Спасибо:)))



Страницы: 1 вся ветка

Текущий архив: 2002.12.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
3-98956
ELKa
2002-11-26 12:55
2002.12.30
Вопрос по Crystal Reports


3-98974
EAlexander
2002-12-09 16:41
2002.12.30
Oracle Unwrap :)


14-99323
kex86
2002-11-21 11:57
2002.12.30
Таракан


14-99299
KoLjA
2002-12-09 18:13
2002.12.30
машина Тьюринга


14-99359
mike123
2002-11-29 17:46
2002.12.30
как апустить приложение kylix