[genius]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
RecursoRed :TNetResource;
Mango :THandle;
NumeroEntradas Word;
Buffer :Array [1..50] of TNetResource;
LongBuffer Word;
n :Integer;
begin
LongBuffer:=SizeOf(Buffer);

if WNetOpenEnum( RESOURCE_CONNECTED,
RESOURCETYPE_ANY,
RESOURCEUSAGE_CONNECTABLE,
nil,
Mango
)<> No_ERROR then ShowMessage('Error');

NumeroEntradas:=10;

WNetEnumResource( Mango,
NumeroEntradas,
@Buffer[1],
LongBuffer
);

Memo1.Lines.Clear;
 for n:=1 to NumeroEntradas do
  memo1.Lines.Append(Buffer[n].lpRemoteName);

end;