[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    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 ;

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]