Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Redes (https://www.clubdelphi.com/foros/forumdisplay.php?f=37)
-   -   Como BORRAR una unidad de RED en Delphi???? (https://www.clubdelphi.com/foros/showthread.php?t=43018)

AGAG4 28-04-2007 18:33:47

Como BORRAR una unidad de RED en Delphi????
 
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:
Código Delphi [-]
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 19:08:58

Ya lo encontre
 
Estaba en mis narices, pero lo encontre, para los que esten interezados aqui les pongo el código:
Código Delphi [-]
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.


La franja horaria es GMT +2. Ahora son las 05:09:57.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi