| 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& |
|