Připojení a odpojení síťových disků
Založte nový projekt, v něm formulář. Na formulář umístěte dvě tlačítka, jednomu dejte Caption 'Připojit' a druhému 'Odpojit'
V deklaracích formuláře
zadejte tyto deklarace:
Private Declare
Function WNetConnectionDialog Lib "mpr.dll" (ByVal hwnd As Long,
ByVal dwType As Long) As Long
Private Declare Function WNetDisconnectDialog Lib "mpr.dll" (ByVal
hwnd As Long, ByVal dwType As Long) As Long
Private Const RESOURCETYPE_DISK = &H1
*Každá deklarace
musí být celá na samostatném řádku
Pro tlačítko Připojit na
událost Click:
x =
WNetConnectionDialog(Me.hwnd, RESOURCETYPE_DISK)
Pro tlačítko Odpojit na
událost Click:
x =
WNetDisconnectDialog(Me.hwnd, RESOURCETYPE_DISK)
Spusťte aplikaci a
otestujte tlačítka.