Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Private Sub cGetUserName()
Dim Dummy$, Success&
Dummy = Space(100)
Success = GetUserName(Dummy, 100)
MsgBox "Зарегистрирован: " & Trim(Dummy), vbOKOnly + vbInformation
End Sub |
|
