Hogy lehet meghatározni a windows felhasználónak a felhasználónevét delphi alatt? A user/application data-ba szeretnék fájlokat tenni. Addig megvan, hogy meghatározom a meghajtót, de nem tudom a felhasználónevet.

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;