Форум: "WinAPI";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];
ВнизПоучение имени Юзверя..... Найти похожие ветки
← →
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c