Conectar/Desconectar una unidad de red ó impresora

Lenguaje de programación Borland Delphi

Lo más fácil es llamar al diálogo de conectar unidad de red WNetConnectionDialog().
Ejemplo:

  procedure TForm1.Button1Click(Sender: TObject);
  begin
    WNetConnectionDialog(Handle,RESOURCETYPE_DISK);
  end;

Si queremos conectar una impresora:

  procedure TForm1.Button1Click(Sender: TObject);
  begin
    WNetConnectionDialog(Handle,RESOURCETYPE_PRINT);
  end;

Si lo que queremos es conectar una unidad de red sin mostrar ningún diálogo:

  procedure TForm1.Button2Click(Sender: TObject);
  var
    NetResource: TNetResource;
  begin
    NetResource.dwType       := RESOURCETYPE_DISK;
    NetResource.lpLocalName  := 'S:';
    NetResource.lpRemoteName := '\\server\public';
    NetResource.lpProvider   := '';
    WNetAddConnection2(NetResource,
        '', {Clave o vacio /Password or empty}
        '', {Nombre del usurio o vacio/User name o vacio}
        CONNECT_UPDATE_PROFILE);
  end;

En el ejemplo, conectaremos '\\server\public' a S: sin clave ni nombre de usuario

Para desconectar una unidad compartida:

  procedure TForm1.Button2Click(Sender: TObject);
  begin
    if WNetCancelConnection2( 'S:',0,TRUE) <> NO_ERROR then
      Raise Exception.create('Error al desconectar la unidad');
  end;

Publicado el: 2003-09-11