Test instalace sítě

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As_
 Long) As Long


Function IsNetworkInstalled() As Boolean

    Const SM_NETWORK = 63
    IsNetworkInstalled = GetSystemMetrics(SM_NETWORK)

End Function

Zpět