怎么用api函数调出windows的用户姓名

同主题 问题点数：0、回复次数：3Top

1 楼ulfnboy（古道西風瘦馬）回复于 2003-05-03 19:14:16 得分 0

Public   Declare   Function   GetUserName   Lib   "advapi32.dll"   Alias   "GetUserNameA"   (ByVal   lpBuffer   As   String,   nSize   As   Long)   As   Long  
   
  Dim   UserName   As   String  
  UserName=   String(255,   "/")  
  GetUserName   UserName,   255  
  UserName=   Left(UserName,   InStr(1,   UserName,   Chr(0))   -   1)  
  Form1.Caption   =   UserNameTop

2 楼online（龙卷风V4.0--决战江湖(MS MVP-VB)）回复于 2003-05-03 21:17:27 得分 0

Public   Declare   Function   GetUserName   Lib   "advapi32.dll"   Alias   "GetUserNameA"   (ByVal   lpBuffer   As   String,   nSize   As   Long)   As   Long  
   
  调用即可  
  Top

相关问题

• dll
• getusernamea
• advapi32
• username
• getusername lib
• alias
• nsize as long
• byval
• declare function
• lpbuffer as string

• 帖主：xiaociwei20000

• Visual Basic类图书
• Visual Basic类源码下载