Examples Delphi

  1. Home
  2. Delphi
  3. Examples
  4. How to get username
Another solution (my favorite)
function GetUserName(Var Name:String):Boolean;
var I : integer
begin
I := 100 ; {buffer length}
setlength (Name,I) ;
GetUserName (pchar(Name),I) ;
setlength (Name,I) ;
Result := (I <> 0) ;
end ;