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

Previous  Top  Next

    
 

 

 

Code:

Function GetUserFromWindows: 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;

 

 

©Drkb::03299

Взято из http://forum.sources.ru