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;