accessing user name

[newuser]

Code:

function GetUsername: string;
var
  NetUserName: PChar;
  Size: DWORD;
begin
  Result := '';
  Size := 50;
  NetUserName := StrAlloc(Size);
  try
    if GetUserNamew(NetUserName, Size) then
      Result := NetUserName;
  finally
    StrDispose(NetUserName);
  end;
end;

Do you mean something like this?