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;
