Abrir cuadro de dialogo conectar a unidad de red

Esta función permite abrir el cuadro de diálogo conectar a unidad de red o impresora

#DEFINE RESOURCETYPE_DISK 1
#DEFINE RESOURCETYPE_PRINT 2

Declare Integer WNetConnectionDialog In Win32Api;
Integer Handle, Integer ResourceType

Declare Integer FindWindow In Win32Api;
Integer Handle, String cTitle

*-- Para conectar a una unidad de red
WNetConnectionDialog(FindWindow(0,_Screen.Caption), RESOURCETYPE_DISK)

*-- Para conectar a una impresora
WNetConnectionDialog(FindWindow(0,_Screen.Caption), RESOURCETYPE_PRINT)

Jairo Espinal