Главная страница
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.046 c
9-1120751144
Micke
2005-07-07 19:45
2006.02.12
Припозднившийся God Mode.


2-1138199118
Дмитрий_К
2006-01-25 17:25
2006.02.12
DBGrid


15-1138025258
*Pavel
2006-01-23 17:07
2006.02.12
О TFT мониторах


15-1138112957
Norm Iridium
2006-01-24 17:29
2006.02.12
C- - и прочий стёб


3-1134316431
kaif
2005-12-11 18:53
2006.02.12
Замучился с XDB на порту 8080 ORACLE 9i - конфликт с Tomcat