Cuadro de dialogo conectar a unidad de red
Publicado por Ernesto Hernandez (4623 intervenciones) el 06/08/2007 19:41:53
DECLARE INTEGER WNetConnectionDialog IN WIN32API ;
INTEGER hWnd, ;
INTEGER nResourceType
DECLARE INTEGER GetActiveWindow IN WIN32API
IF WNetConnectionDialog(GetActiveWindow(),1) = 0
MessageBox("Conexión establecida exitosamente",64,"MiSistema")
ELSE
MessageBox("No fue posible realizar la conexión",64,"MiSistema")
ENDIF
INTEGER hWnd, ;
INTEGER nResourceType
DECLARE INTEGER GetActiveWindow IN WIN32API
IF WNetConnectionDialog(GetActiveWindow(),1) = 0
MessageBox("Conexión establecida exitosamente",64,"MiSistema")
ELSE
MessageBox("No fue posible realizar la conexión",64,"MiSistema")
ENDIF
Valora esta pregunta
0