Определение имени пользователя

[-Jack-]

Всем доброго времени суток. Вопрос такой:

Как можно определить имя пользователя, который запустил мою программу ( т.е. нужно именно то имя пользователя, которое будет выводится на против процесса в диспетчере задач )

[grominfo]

function GetUserName: string;
var
  UserName : string;
  UserNameLen : Dword;
begin
  UserNameLen := 255;
  SetLength(userName, UserNameLen);
  if GetUserName(PChar(UserName), UserNameLen) then
    Result := Copy(UserName,1,UserNameLen - 1)
  else
    Result := 'Unknown';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 showmessage(GetUserName);
end;

[-Jack-]

Это не то ... Этот код выводит имя текущей учетной записи пользователя, но не имя, которое выводится в диспетчере задач...

[grominfo]

Сообщение от -Jack-

Это не то ... Этот код выводит имя текущей учетной записи пользователя, но не имя, которое выводится в диспетчере задач...

Вообще-то там как раз и отображается имя пользователя, то есть имя учётной записи, от которого запущена та или иная программа




Ставь вопрос более конкретно. Телепатов тут нет. Если ты хочешь узнать имя пользователя, который работает с твоей программой - то это именно тот способ. Если как-то иначе, то опиши сначала подробно, что именно ты хочешь

[Stilet]

Этот код выводит имя текущей учетной записи пользователя

Ошибаешся:

The GetUserName function retrieves the user name of the current thread

Это именно то.

[-Jack-]

Факт в том, что не всегда будет выводиться имя пользователя, иногда там выводится что-то другое ...
К примеру, на твоем скрине есть процесс winlogon.exe без имени пользователя ...

Вот и нужно, зная PID, Handle процесса получить имя пользователя, который работает с этим процессом ... Т.е. не факт что это будет именно "Grom", может быть System или вообще пусто ...

[grominfo]

Сообщение от -Jack-

Факт в том, что не всегда будет выводиться имя пользователя, иногда там выводится что-то другое ...
К примеру, на твоем скрине есть процесс winlogon.exe без имени пользователя ...

Вот и нужно, зная PID, Handle процесса получить имя пользователя, который работает с этим процессом ... Т.е. не факт что это будет именно "Grom", может быть System или вообще пусто ...


Хотя ... скорее всего не кто работает, а от чьего имени запущена программа ...

Вот и надо было сразу говорить, что хочешь узнать имя пользователя по PiD процесса. Каков был вопрос - такой был и ответ!

http://www.programmersforum.ru/showthread.php?t=69510

[-Jack-]

Если я ничего не путаю, в той ссылке имя процесса по PID ... но никак не имя пользователя ...

----------------------------
Вся проблема в том, что при запуске программы в диспетчере пишется не имя пользователя, а "АНОНИМНЫЙ ВХОД" ...
Вот и нужно в случаи анонимного входа прописать несколько условий и действий ...

[grominfo]

Ну я тебе просто показал, куда копать. Раньше я как-то использовал вот такую функцию

function GetUserByPID(pid : DWORD) : string;
var
   hProcess, hToken : THandle;
   AccountName, DomainName : array[0 .. MAXCHAR - 1] of Char;
   lenNeeded : DWORD;
   userData : PTokenUser;
   dwRes, AccSize, DomSize : DWORD;
   sidType : SID_NAME_USE;
   bRes : BOOL;
begin
   result := '';
   hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, pid);
   if(hProcess <> INVALID_HANDLE_VALUE) then
   begin
      OpenProcessToken(hProcess, TOKEN_QUERY, hToken);
      lenNeeded := 0;
      GetTokenInformation(hToken, TokenUser, nil, 0, lenNeeded);
 
      if GetLastError = ERROR_INSUFFICIENT_BUFFER then
      begin
         userData := HeapAlloc(GetProcessHeap, 0, lenNeeded);
         if userData <> nil then
         begin
            bRes := GetTokenInformation(hToken, TokenUser, userData, lenNeeded, lenNeeded);
            if bRes then
            begin
               sidType := SidTypeUnknown;
               AccSize := MAXCHAR;
               DomSize := MAXCHAR;
               bRes := LookupAccountSid(nil, userData^.User.Sid, accountName,
                                        AccSize, domainName, DomSize, sidType);
               Result := StrPas(domainName) + '\' + StrPas(accountName);
            end;
            HeapFree(GetProcessHeap, 0, userData);
         end;
      end;
      CloseHandle(hProcess);
   end;
end;

Но что-то в ней у меня не работало, и я бросил. Погугли, наверняка уже есть готовые решения.

Вот тут посмотри

http://www.sources.ru/msdn/howto/q111544.shtml

[Человек_Борща]

grominfo,Stilet - сабж не правильно сработает если целевой процесс запущен в сессии другого пользователя.

Попробуйте мой код:

function GetProcessUser(aPID: Cardinal; var aResult: string): Boolean;
type
  PTOKEN_USER = ^TOKEN_USER; 

  _TOKEN_USER = record
    User: TSidAndAttributes;
  end;

  TOKEN_USER = _TOKEN_USER;
var
  cbBuf: Cardinal;
  ptiUser: PTOKEN_USER;
  snu: SID_NAME_USE;
  hToken, hProcess: THandle;
  UserSize, DomainSize: Cardinal;
  bSuccess: Boolean;
  sUser, sDomain: string;
begin
  Result := False;
  hProcess := OpenProcess(PROCESS_QUERY_INFORMATION, False, aPID);
  if hProcess <> 0 then
  begin
    if OpenProcessToken(hProcess, 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
        Exit;

      UserSize := 0;
      DomainSize := 0;
      LookupAccountSid(nil, ptiUser.User.Sid, nil, UserSize, nil, DomainSize, snu);
      if (UserSize <> 0) and (DomainSize <> 0) then
      begin
        SetLength(sUser, UserSize);
        SetLength(sDomain, DomainSize);
        if LookupAccountSid(nil, ptiUser.User.Sid, PChar(sUser), UserSize,
          PChar(sDomain), DomainSize, snu) then
        begin
          Result := True;
          aResult := StrPas(PChar(sDomain)) + '\' + StrPas(PChar(sUser));
        end;
      end;

      if bSuccess then
        FreeMem(ptiUser);

    end;
    CloseHandle(hProcess);
  end;
end;

Возвращает в формате: Домен\Имя пользователя