: dwType := RESOURCETYPE_PRINT;  
else  
dwType := RESOURCETYPE_ANY;  
end;  
dwUsage := 0;  
if nuConnectable in FUsage then  
dwUsage := dwUsage or RESOURCEUSAGE_CONNECTABLE;  
if nuContainer in FUsage then  
dwUsage := dwUsage or RESOURCEUSAGE_CONTAINER;  
dwResult := WNetOpenEnum(dwScope, dwType, dwUsage, lpnr, hEnum);  
if dwResult <> NO_ERROR then Exit;  
GetMem(nrArray, cbBuffer);  
repeat  
dwResultEnum := WNetEnumResource(hEnum, cEntries, nrArray, cbBuffer);  
if dwResultEnum = NO_ERROR then  
for i := 0 to cEntries-1 do  
begin  
NewItem := TNetworkItem.Create;  
case nrArray[i].dwScope of  
RESOURCE_CONNECTED: NewItem.FScope := nsConnected;  
RESOURCE_GLOBALNET: NewItem.FScope := nsGlobal;  
RESOURCE_REMEMBERED: NewItem.FScope := nsRemembered;  
RESOURCE_CONTEXT: NewItem.FScope := nsContext;  
else  
NewItem.FScope := nsGlobal;  
end;  
case nrArray[i].dwType of  
RESOURCETYPE_ANY: NewItem.FResourceType := nrAny;  
RESOURCETYPE_DISK: NewItem.FResourceType := nrDisk;  
RESOURCETYPE_PRINT: NewItem.FResourceType := nrPrint;  
else  
NewItem.FResourceType := nrAny;  
end;  
case nrArray[i].dwDisplayType of  
RESOURCEDISPLAYTYPE_GENERIC: NewItem.FDisplay := ndGeneric;  
RESOURCEDISPLAYTYPE_DOMAIN: NewItem.FDisplay := ndDomain;  
RESOURCEDISPLAYTYPE_SERVER: NewItem.FDisplay := ndServer;  
RESOURCEDISPLAYTYPE_SHARE: NewItem.FDisplay := ndShare;  
RESOURCEDISPLAYTYPE_FILE: NewItem.FDisplay := ndFile;  
RESOURCEDISPLAYTYPE_GROUP: NewItem.FDisplay := ndGroup;  
RESOURCEDISPLAYTYPE_NETWORK: NewItem.FDisplay := ndNetwork;  
RESOURCEDISPLAYTYPE_ROOT: NewItem.FDisplay := ndRoot;  
RESOURCEDISPLAYTYPE_SHAREADMIN: NewItem.FDisplay :=  
ndShareAdmin;  
RESOURCEDISPLAYTYPE_DIRECTORY: NewItem.FDisplay :=  
ndDirectory;  
RESOURCEDISPLAYTYPE_TREE: NewItem.FDisplay := ndTree;  
RESOURCEDISPLAYTYPE_NDSCONTAINER: NewItem.FDisplay :=  
ndNDSContainer;  
else  
NewItem.FDisplay := ndGeneric;  
end;  
NewItem.FUsage := ;  
if nrArray[i].dwUsage and RESOURCEUSAGE_CONNECTABLE <> 0 then  
Include(NewItem.FUsage, nuConnectable);  
if nrArray[i].dwUsage and RESOURCEUSAGE_CONTAINER <> 0 then  
Include(NewItem.FUsage, nuContainer);  
NewItem.FLocalName := StrPas(nrArray[i].lpLocalName);  
NewItem.FRemoteName := StrPas(nrArray[i].lpRemoteName);  
NewItem.FComment := StrPas(nrArray[i].lpComment);  
NewItem.FProvider := StrPas(nrArray[i].lpProvider);  
NetItems.Add(NewItem);  
// if container, call recursi