GetUserName |
VB聲明 |
|
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long |
|
說明 |
|
取得當前用戶的名字 |
|
返回值 |
|
Long,TRUE(非零)表示成功,否則返回零。會設置GetLastError |
|
參數表 |
|
參數 |
類型及說明 |
lpBuffer |
String,一個字串緩沖區(qū),預先初始化成由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 |