Get the current user

How to get the current user's login name.

function UserName : String;

var

  Size : DWord;

  Name : PChar;

begin

  Name := StrAlloc(256);

  Size := 255;

  if GetUsername(Name,Size) then

    Result := String(Name)

  else

    Result := '';

  StrDispose(Name);

end;

 

Share this article!

Follow us!

Find more helpful articles: