🚀 go-pugleaf

Jest taka możliwość - oto przykład :

Function NetUserName() As String
    Dim lngReturn As Long
    Dim strBuffer As String * 255

    lngReturn = GetUserNameA(strBuffer, Len(strBuffer))
    If lngReturn Then
        NetUserName = left$(strBuffer, InStr(strBuffer, vbNullChar) - 1)
    End If

End Function


W module deklaracji umieść nastepująca deklarację :

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

i heja (możesz skopiować prosto do programu - to działa)


cześć !!!


Janusz  Trąbiński
if@bitstudio.com.pl



Krzysztof Kozłowski wrote in message <366645E0.66A1D634@friko.sos.com.pl>...
>Czy jest jakas funkcja w VB for Access ktora zezwala na sczytanie nazwy
>uzytkownika SYSTEMU Win (wpisywanego podczas logowania,a nie uzytkownika
>Access (z pliku MDW)?
>
>Prosze o odpowiedz na priva
>
>Pozdroofko
>Krzysztof Kozlowski