Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Temas relacionados > Redes
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 28-04-2007
Avatar de AGAG4
AGAG4 AGAG4 is offline
Miembro
 
Registrado: ago 2004
Ubicación: Los Mochis, Sinaloa, México
Posts: 1.420
Poder: 21
AGAG4 Va por buen camino
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.
__________________
"Hemos aprendido a volar como los Pájaros, y a nadar como los Peces, y todavía No aprendemos a vivir como Hermanos". Martin Luther King
Responder Con Cita
  #2  
Antiguo 28-04-2007
Avatar de AGAG4
AGAG4 AGAG4 is offline
Miembro
 
Registrado: ago 2004
Ubicación: Los Mochis, Sinaloa, México
Posts: 1.420
Poder: 21
AGAG4 Va por buen camino
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.
__________________
"Hemos aprendido a volar como los Pájaros, y a nadar como los Peces, y todavía No aprendemos a vivir como Hermanos". Martin Luther King
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Unidad Crt de Turbo Pascal en Delphi para consola linuxfresh Varios 0 08-09-2006 18:06:55
como saber cual es la unidad de cd? crievep API de Windows 2 08-04-2006 00:22:29
Como Detectar la Unidad de una Memory Flash???? AGAG4 Varios 1 09-12-2005 10:50:09
Unidad ZLib de Delphi: Necesita DLL? Pandre Varios 2 04-04-2005 17:34:07
¿Cómo puedo Ocultar la Unidad de CD? adolfoz API de Windows 17 30-09-2004 23:51:36


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


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