精华区文章阅读

发信人: bloom (├┝┞┟┠┢┣�), 信区: VB
标题: GetUserName(硬件与系统)(转载)
发信站: 哈工大紫丁香 (2000年09月07日18:39:06 星期四), 转信

【以下文字转载自 cnTemp 讨论区】
【原文由 catchy 所发表】
发信人: yucheng (无话可说), 信区: VisualBasic
发信站: BBS 水木清华站 (Thu Mar 30 00:12:43 2000) WWW-POST

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

--

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: casi.bbs@smth.org]
--
※ 转载:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: 202.118.247.254]

VB 版 (精华区)