GetUserName

GetUserName

VB声明

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

说明

取得当前用户的名字

返回值

Long，TRUE（非零）表示成功，否则返回零。会设置GetLastError

参数表

参数

类型及说明

lpBuffer

String，一个字串缓冲区，预先初始化成由nSize指定的长度。它将用于容纳用户名

nSize

Long，初始化成lpBuffer的长度。返回以后，它会包含载入lpBuffer的字符数量

示例

Dim s$, cnt&, dl&

cnt& = 199

s$ = String$(200,0)

dl& = GetUserName(s$, cnt)

Debug.Print Left$(s$, cnt); cnt

Top