Узнать под каким пользователем работает процесс

[sysyman]

Ну раз здесь разговор был о процессах , то и я свой вопрос оставлю сдесь. Искал по форуму инфу насчет процессов, да нашел , но не совсем то что хотел.Вопрос вот в чем, как узнать под каким пользователем запущен тот или иной процесс. К примеру на компе сейчас запущено 3 учетных записей пользователей. Например запущен процесс под каким-либо пользователем. Как получить его имя? Диспетчер задач винды получает имя пользователя, и мне надо что-то вроде того. Буду признателен за ответ или подсказку где можно поискать информацию.
PS: Помучаю сейчас поисковик, может что найду.

[rpy3uH]

вот так

var
 _user:array[0..255] of char;
 _Domain:array[0..255] of char;   

function EnableDebugPrivilege: Boolean;
var
  Token: THandle;
  tkp: TTokenPrivileges;
begin
  Result := false;
  if OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, Token) then
  begin
   if LookupPrivilegeValue(nil, PChar('SeDebugPrivilege'), tkp.Privileges[0].Luid) then
    begin
     tkp.PrivilegeCount := 1;
     tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
     Result := AdjustTokenPrivileges(Token, false, tkp, 0, PTokenPrivileges(nil)^, PDWord(nil)^);
    end;
  end;
end;

function GetProcessId(pName: PChar): dword;
var
 Snap: dword;
 Process: TPROCESSENTRY32;
begin
  Result := 0;
  Snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if Snap <> INVALID_HANDLE_VALUE then
     begin
      Process.dwSize := SizeOf(TPROCESSENTRY32);
      if Process32First(Snap, Process) then
         repeat
          if lstrcmpi(Process.szExeFile, pName) = 0 then
             begin
              Result := Process.th32ProcessID;
              CloseHandle(Snap);
              Exit;
             end;
         until not Process32Next(Snap, Process);
      Result := 0;
      CloseHandle(Snap);
     end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 prH,th:THandle;
 RL:DWORD;
 sid:_SID_AND_ATTRIBUTES;
 S,s1,s2:DWORD;
 buff:pointer;
begin
 EnableDebugPrivilege;

 prH:=OpenProcess(PROCESS_QUERY_INFORMATION,false,GetProcessId('alg.exe'));
 if prh=0 then ShowMessage('ошибочка1');
 OpenProcessToken(prH,TOKEN_QUERY,th);
 if th=0 then ShowMessage('ошибочка2');

 buff:=HeapAlloc(GetProcessHeap,0,256);

 if not GetTokenInformation(th,TokenUser,buff,256,RL) then exit;

 sid:=SID_AND_ATTRIBUTES(buff^);

 s:=256;
 s1:=256;
 s2:=SidTypeUser;

 if not LookupAccountSid(0,sid.Sid,@_user,s,@_domain,s1,s2) then
  ShowMessage('ошибочка3');

 ShowMessage(_user);

 CloseHandle(th);
 CloseHandle(prh);
end;

[sysyman]

Спасибо rpy3uH.