|
Napisał Administrator
|
|
wtorek, 24 styczeń 2006 |
Kto jest zalogowany ?
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function WinUser() As String
'nazwa zalogowanego użytkownika
Dim lpBuff As String * 50, ret As Long
On Error Resume Next
ret = GetUserName(lpBuff, 50)
WinUser = Left(lpBuff, InStr(lpBuff, vbNullChar) - 1)
End Function
Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze. Powered by AkoComment 2.0! |
