LEADERSOFT.ru Разработка на заказ программ и сайтов
Раздел обучения информационным технологиям
Разработка программ на Access
08. Этот пример показывает как с использованием API интерфейса получить текущее и сетевое имя пользователя в Windows. Можно использовать для определения MSDE на текущей машине.
Свойства продукта

 Microsoft Office: 2000,2002,2003,2007,2010  Архив с файлами: Перейти
 Операционная система: Windows XP,Vista  Применение: Базы данных Access
 Продажа: Купить  Файл исходника: ..\Access\16 Модули\API\la_api.mdb
 Язык интерфейса: Русский

   


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


' Возвращает сетевое имя пользователя
Function funGetUserName() As String
Dim BufSize As Long, strUserName As String * 255, status As Long
    On Error GoTo 999
        BufSize = 255
        status = apiGetUserName(strUserName, BufSize)
        If status = 1 Then
            funGetUserName = Left$(strUserName, InStr(strUserName, Chr(0)) - 1)
        Else
            funGetUserName = ""
        End If
    Exit Function
999:
    MsgBox Err.Description
End Function


' Функция запуска событий
Private Sub butExec_Click()
    Me.msg = "Локальное имя: " & funGetUserName & vbNewLine & _
             "Сетевое имя: " & NetUserID
End Sub

Copyright © 2002-2015 ООО Лидер Эксэсс
Сайт работает под управлением: ASP.NET, Access