请问怎么在DELPHI调用WIN2000的登录用户名?

Question

是这个吗？
WNetGetUser VB声明 
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long 
说明 
获取一个网络资源用以连接的名字 
返回值 
Long，零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息 
参数表 
参数 类型及说明 
lpName String，指定已连接资源的远程名称或本地名称。用vbNullString获取当前用户的名字 
lpUserName String，用于装载用户名的一个字串缓冲区 
lpnLength Long，lpUserName缓冲区的长度。如缓冲区不够大，则自动设为需要的缓冲区长度