Navigation

	Home Page
	Index
	All Pages

Contributor Links

	Create a new Page
	Administration
	File Management
	Login/Logout
	Your Profile

Other Wiki Sections

Software

GetUserName Function - Windows API

Purpose¶

Code¶

VB6¶

Private Declare Function GetUserNameApi Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer _
As String, nSize As Long) As Long

Public Function GetUserName()

    Dim result As String
    Dim n As Long
    Dim retval As Long
    
    n = 255
    result = Space$(n)
    retval = GetUserNameApi(result, n)
    GetUserName = Left$(result, n - 1)

End Function