#DEFINE RESOURCETYPE_DISK   1
DO declare
 
LOCAL hWindow
hWindow = GetActiveWindow()
 
* Map Network Drive dialog box
= WNetConnectionDialog(hWindow, RESOURCETYPE_DISK)
 
* Disconnect Network Drives dialog box
* only RESOURCETYPE_DISK flag is allowed
= WNetDisconnectDialog(hWindow, RESOURCETYPE_DISK)
 
PROCEDURE declare
    DECLARE INTEGER GetActiveWindow IN user32
 
    DECLARE INTEGER WNetConnectionDialog IN mpr;
        INTEGER hwnd, INTEGER dwType
 
    DECLARE INTEGER WNetDisconnectDialog IN mpr;
        INTEGER hwnd, INTEGER dwType