'================================================================
'= ネットワークドライブの判定
'= WindowsXP(SP2)、Windowsサーバー2003
'= OSによっては、GetDriveTypeまたはWNetGetConnectionを使う

'=    (IsNetDrive.bas)
'================================================================
#include "Windows.bi"

' ネットワークドライブの判定
Declare Function Api_IsNetDrive& Lib "Shell32" Alias "IsNetDrive" (ByVal iDrive&)

#define vbCrLf (Chr$(13) & Chr$(10))    'キャリッジリターンとラインフィード(\r\n)

Var Shared List1 As Object
Var Shared Text1 As Object
Var Shared Button1 As Object

List1.Attach GetDlgItem("List1") : List1.SetFontSize 14
Text1.Attach GetDlgItem("Text1") : Text1.SetFontSize 12
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

'================================================================
'=
'================================================================
Declare Sub MainForm_Start edecl ()
Sub MainForm_Start()
    Var msg As String

    msg = msg & "0:Net接続ではない" & vbCrLf
    msg = msg & "1:Net接続(現在接続)" & vbCrLf
    msg = msg & "2:Net接続(現在切断)"

    Text1.SetWindowtext msg
End Sub

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var i As Integer

    For i = 0 To 25
        List1.AddString Chr$(65 + i) & ":   " & Str$(Api_IsNetDrive(i))
    Next
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End