Архив форумов ЦИТФорума

[Leha]

Poprobuy vot eto

Option Explicit

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Private Function GetUName() As String

Dim lngRetVal As Long
Dim lpBuffer As String
Dim nSize As Long

lpBuffer = Space(255)
nSize = 254
lngRetVal = GetUserName(lpBuffer, nSize)

GetUName = "User Name = " + StripNullTerminator(lpBuffer)

End Function

Private Function StripNullTerminator(lpBuffer As String) As String

Dim idx As Integer

For idx = 1 To 255
If Asc(Mid(lpBuffer, idx, 1)) = Then
lpBuffer = Left(lpBuffer, idx - 1)
Exit For
End If
Next idx

StripNullTerminator = lpBuffer

End Function

Private Sub Form_Load()
Me.Caption = GetUName
End Sub

Soobshi o rezul"tatax
krolik7@rambler.ru