PDA

Ver la Versión Completa : Como BORRAR una unidad de RED en Delphi????


AGAG4
28-04-2007, 19:33:47
Tal vez sea una pregunta muy sencilla, pero tengo como 1 hora buscando por internet como ELIMINAR una unidad de RED en delphi y no lo encuentro, encontre como AÑADIR:

function ConectarUnidad(Unidad:PChar):Boolean;
var
NetResource: TNetResource;
begin
NetResource.dwType := RESOURCETYPE_DISK;
NetResource.lpLocalName := Unidad;
NetResource.lpRemoteName := '\\Servidor\Datos';
NetResource.lpProvider := '';
WNetAddConnection2(NetResource,
'datos', {Clave o vacio /Password or empty}
'administrador', {Nombre del usuario o vacio/User name o vacio}
CONNECT_UPDATE_PROFILE);
end;


Tengo una PC bien rara, lo que pasa es que todos los días tenía que activar la unidad de red, hasta que le puse un archivo .bat para desconectarla y conectarla, pero deseo hacerlo en delphi para no estar poniendo ese .bat en cada PC, yo pense que ese código que puse arriba era para Re-Conectar y añadir una de red pero solo Añade pero no Re-Conecta....


Agradezco cualquier sugerencia.

AGAG4
28-04-2007, 20:08:58
Estaba en mis narices, pero lo encontre, para los que esten interezados aqui les pongo el código:

function DesconectarUnidad(Unidad : PChar):Boolean;
begin
try
result := true;
WNetCancelConnection2(Unidad, CONNECT_UPDATE_PROFILE, True);
except
on e:Exception do
result := false;
end;
end;


Que tengan buen día.