P.T.A.M.
Administrator
Joined: 08 Oct 2003
Posts: 752
Location: Greece
|
 Posted: Oct 10th, 2003 08:37 AM Post subject: Check whether network is installed or not |
 |
|
| Code: | Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Private Sub Form_Load()
Dim x As Long
x = GetSystemMetrics(63)
If (x And 2) = 2 Then
MsgBox "Network is Installed"
Else
MsgBox "Network is not Installed"
End If
End Sub |
_________________
No one is completely useless. They can at least be an example of what to avoid. |
|
