Path completo en la red

[RebeccaGL]

Como podria cargar todos los paths de una red.

Ejemplo

La maquina 0001 = c:\sistema\datos
La maquina 0002 = Brad\c:\sistema\datos
La maquina 0002 = Juan\c:\sistema\datos

El path de la maquina 0001 ya lo se porque es ahi donde se ejecuta mi programa, pero como saber ó mejor dicho como cargar en una cadena el path de la maquina 0002 ó 0003. En el explorador salen dichos path's pero la idea es cargarlos sin tener que usar el explorador de windows.

Ejemplo:
cadena[1] := Brad\c:\sistema\datos
cadena[2] := Juan\c:\sistema\datos

se entiende ó no ???

gracias

[[cHackAll]]

Empezado por connor

se entiende ó no ???

No muy bien pero corrigeme; deseas llenar una lista con todas las carpetas compartidas o con los nombres de los equipos, del equipo de trabajo?

[RebeccaGL]

Empezado por cHackAll

No muy bien pero corrigeme; deseas llenar una lista con todas las carpetas compartidas o con los nombres de los equipos, del equipo de trabajo?

Mi estimado cHackAll, deseo llenar una lista con todas las carpetas compartidas.

\\usuario_0001\sistema\datos
\\usuario_0002\sistema\datos
\\usuario_0003\sistema\datos

Ojo solo las carpetas compatidas en RED.

También he visto rutinas en delphi, en este Foro donde obtiene los nombres de los equipos en Red y si estan conectados o no, he probado estas rutinas y fallan la maquina se cuelga. ¿A que se debe esto?.


Gracias.

[[cHackAll]]

Código Delphi [-]
var Items: array [0..32767] of TNetResource;

procedure AddResources(NodeName: string; List: TStrings);
var hEnum, Count, Size: Cardinal;
begin
 Items[0].lpRemoteName := PChar(NodeName);
 Count := $FFFFFFFF; Size := SizeOf(Items);
 WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, 0, @Items, hEnum);
 WNetEnumResource(hEnum, Count, @Items, Size);
 WNetCloseEnum(hEnum);
 while LongBool(Count) do
  begin
   Dec(Count);
   List.Add(Items[Count].lpRemoteName);
  end;
end;
 
type
 PWkstaInfo100 = ^TWkstaInfo100;
 TWkstaInfo100 = record
  wki100_platform_id: Cardinal;
  wki100_computername,
  wki100_langroup: PWideChar;
  wki100_ver_major,
  wki100_ver_minor: Cardinal;
 end;
 
function NetWkstaGetInfo(server: PWideChar; level: Cardinal; bufptr: Pointer): Cardinal; stdcall; external 'netapi32.dll';
 
procedure TForm1.Button1Click(Sender: TObject);
var
 Info: PWkstaInfo100;
 Index: Cardinal;
begin
 if not LongBool(NetWkstaGetInfo(nil, 100, @Info)) and Assigned(Info) then
  begin
   ListBox1.Items.Clear;
   AddResources(string(Info.wki100_langroup), ListBox1.Items);
   LocalFree(Cardinal(Info));
   Index := ListBox1.Count;
   while LongBool(Index) do
    begin
     AddResources(ListBox1.Items[0], ListBox1.Items);
     ListBox1.Items.Delete(0);
     Dec(Index);
    end;
  end;
end;

El anterior código hace lo que necesitas (enumerar las carpetas compartidas en tu grupo de trabajo), tambien lo he dejado como truco para futuras busquedas.

PD: connor no repitas los hilos, lo óprimo hubiese sido que contunues el anterior hilo o que lo aclares.

Saludos

[RebeccaGL]

Gracias, por la rutina fui a probarla y me dio este error:
[Error] ENTRED.PAS(496): Undeclared identifier: 'AddResources'

Podrias decirme en que unidad va este comando AddResources, porque no la encuentro. O que unidades hay que incluir en el Modulo.

Gracias

[jachguate]

Por lo que veo, AddResources está declarado en la misma unidad (linea 3 del listado publicado por Javier).

¿no?