Directorios compartidos ayuda

[[cHackAll]]

Empezado por http://www.clubdelphi.com/trucos/index.php?id=460

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;

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Index: Cardinal;
begin
 ListBox1.Items.Clear;
 AddResources('\\ComputerName', ListBox1.Items);
end;