Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Как узнать домен и имя пользователя владельца процесса?

Delphi , ОС и Железо , Windows

Code:
uses
TlHelp32;
 
type
PTOKEN_USER = ^TOKEN_USER;
_TOKEN_USER = record
   User: TSidAndAttributes;
end;
TOKEN_USER = _TOKEN_USER;
 
function GetUserAndDomainFromPID(ProcessId: DWORD;
var User, Domain: string): Boolean;

var
hToken: THandle;
cbBuf: Cardinal;
ptiUser: PTOKEN_USER;
snu: SID_NAME_USE;
ProcessHandle: THandle;
UserSize, DomainSize: DWORD;
bSuccess: Boolean;
begin
Result := False;
ProcessHandle := OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessId);
if ProcessHandle <> 0 then
begin
//  EnableProcessPrivilege(ProcessHandle, 'SeSecurityPrivilege', True);
   if OpenProcessToken(ProcessHandle, TOKEN_QUERY, hToken) then
   begin
     bSuccess := GetTokenInformation(hToken, TokenUser, nil, 0, cbBuf);
     ptiUser  := nil;
     while (not bSuccess) and (GetLastError = ERROR_INSUFFICIENT_BUFFER) do
     begin
       ReallocMem(ptiUser, cbBuf);
       bSuccess := GetTokenInformation(hToken, TokenUser, ptiUser, cbBuf, cbBuf);
     end;
     CloseHandle(hToken);
 
     if not bSuccess then
     begin
       Exit;
     end;
 
     UserSize := 0;
     DomainSize := 0;
     LookupAccountSid(nil, ptiUser.User.Sid, nil, UserSize, nil, DomainSize, snu);
     if (UserSize <> 0) and (DomainSize <> 0) then
     begin
       SetLength(User, UserSize);
       SetLength(Domain, DomainSize);
       if LookupAccountSid(nil, ptiUser.User.Sid, PChar(User), UserSize,
         PChar(Domain), DomainSize, snu) then
       begin
         Result := True;
         User := StrPas(PChar(User));
         Domain := StrPas(PChar(Domain));
       end;
     end;
 
     if bSuccess then
     begin
       FreeMem(ptiUser);
     end;
   end;
   CloseHandle(ProcessHandle);
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
hProcSnap: THandle;
pe32: TProcessEntry32;
Domain, User: string;
s: string;
begin
 
hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPALL, 0);
if hProcSnap = INVALID_HANDLE_VALUE then Exit;
 
pe32.dwSize := SizeOf(ProcessEntry32);
 
if Process32First(hProcSnap, pe32) = True then
   while Process32Next(hProcSnap, pe32) = True do
   begin
 
     if GetUserAndDomainFromPID(pe32.th32ProcessID, User, Domain) then
     begin
       s := Format('%s User: %s ; Domain: %s',[StrPas(pe32.szExeFile), User, Domain]);
       Listbox1.Items.Add(s);
     end else
       Listbox1.Items.Add(StrPas(pe32.szExeFile));
   end;
CloseHandle(hProcSnap);
end;
 

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php

Статья Как узнать домен и имя пользователя владельца процесса? раздела ОС и Железо Windows может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Windows ::


реклама

:: Капитальный и косметический ремонт www.remontnik.ru/moskva/remont_kvartiry/.


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Rambler's Top100
20.08.2017 11:05:03/0.023398876190186/0