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

Вниз

ПОМОГИТЕ!!!!   Найти похожие ветки 

 
medvedenator ©   (2006-01-17 11:08) [0]

Кто знает, как в делфи узнать имя текущего пользователя, но не через функцию GetUserName????


 
Ega23 ©   (2006-01-17 11:09) [1]

Текущего пользователя чего?


 
medvedenator ©   (2006-01-17 11:12) [2]

Имя пользователя текущего сеанса WINDOWS


 
TUser ©   (2006-01-17 11:22) [3]

GetUserName


 
han_malign ©   (2006-01-17 11:25) [4]

LsaEnumerateLogonSessions
   LogonType - Interactive,RemoteInteractive,CachedInteractive

или по процессам
function GetUserNameFromService(hProcess : THandle; var DomainName : string): string;
var
Token: THandle;
User: PSIDAndAttributes;
dwSize, dwNameSize,
dwDomainSize, dwUse: DWORD;
begin
  Result := "";
  if hProcess <> 0 then begin
    if OpenProcessToken(hProcess, TOKEN_QUERY, Token) then begin
       User := nil; dwSize := 0;
       if not GetTokenInformation(Token, TokenUser, User,
          dwSize, dwSize) and (GetLastError = ERROR_INSUFFICIENT_BUFFER)
       then begin
          GetMem(User, dwSize);
          if GetTokenInformation(Token, TokenUser, User,dwSize, dwSize) then begin
             dwNameSize   := 0;
             dwDomainSize := 0;
             if not LookupAccountSid(nil, User.Sid, nil, dwNameSize, nil, dwDomainSize, dwUse) and
                (GetLastError = ERROR_INSUFFICIENT_BUFFER)
             then begin
                SetLength(Result, dwNameSize);
                SetLength(DomainName, dwDomainSize);
                if not LookupAccountSid(nil, User.Sid, pointer(Result), dwNameSize, pointer(DomainName), dwDomainSize, dwUse)
                then begin
                    Result:="";
                    DomainName:="";
                end;
             end;
          end;
          FreeMem(User);
       end;
       CloseHandle(Token);
    end;
  end;
end;

а "текущих" сеансов Windows может быть много, особенно в сети



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

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

Наверх




Память: 0.48 MB
Время: 0.065 c
4-1133182418
Zeleniy
2005-11-28 15:53
2006.02.12
Как записать название раскладки клавиатуры (en, ru и т.д) в label


2-1138080657
Janbolat
2006-01-24 08:30
2006.02.12
FTP-Админ как?


2-1138099309
SergeyZ
2006-01-24 13:41
2006.02.12
Обновление пути в ярлыке.


9-1124639328
Dgt
2005-08-21 19:48
2006.02.12
Zshadows Bugs(Glscene)


15-1137909887
begin...end
2006-01-22 09:04
2006.02.12
С Днём рождения! 22 января