Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English
Conectar/Desconectar una unidad de red ó impresora - Delphi
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

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+