Как узнать имя пользователя? |
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