ceType: TNetResourceType;  
FDisplay: TNetDisplay;  
FUsage: TNetUsage;  
FLocalName: string;  
FRemoteName: string;  
FComment: string;  
FProvider: string;  
FSubItems: TNetworkItems;  
public  
constructor Create;  
destructor Destroy; override;  
property Scope: TNetScope read FScope;  
property ResourceType: TNetResourceType read FResourceType;  
property Display: TNetDisplay read FDisplay;  
property Usage: TNetUsage read FUsage;  
property LocalName: string read FLocalName;  
property RemoteName: string read FRemoteName;  
property Comment: string read FComment;  
property Provider: string read FProvider;  
property SubItems: TNetworkItems read FSubItems;  
end;  
TNetworkItems = class  
private  
FList: TList;  
procedure SetItem(Index: Integer; Value: TNetworkItem);  
function GetItem(Index: Integer): TNetworkItem;  
function GetCount: Integer;  
public  
constructor Create;  
destructor Destroy; override;  
procedure Clear;  
procedure Add(Item: TNetworkItem);  
procedure Delete(Index: Integer);  
property Items[Index: Integer]: TNetworkItem read GetItem write  
SetItem; default;  
property Count: Integer read GetCount;  
end;  
TNetworkBrowser = class(TComponent)  
private  
FItems: TNetworkItems;  
FScope: TNetScope;  
FResourceType: TNetResourceType;  
FUsage: TNetUsage;  
FActive: Boolean;  
procedure Refresh;  
procedure SetActive(Value: Boolean);  
procedure SetScope(Value: TNetScope);  
procedure SetResourceType(Value: TNetResourceType);  
procedure SetUsage(Value: TNetUsage);  
procedure EnumerateNet(NetItems: TNetworkItems; lpnr: PNetResource);  
protected  
public  
constructor Create(AOwner: TComponent); override;  
destructor Destroy; override;  
procedure Open;  
procedure Close;  
property Items: TNetworkItems read FItems;  
published  
property Scope: TNetScope read FScope write SetScope default nsGlobal;  
property ResourceType: TNetResourceType read FResourceType  
write SetResourceType default nrAny;  
property Usage: TNetUsage read FUsage write SetUsage default ;  
property Active: Boolean read FActive write SetActive default False;  
end;  
implementation  
type  
PNetResourceArray = ^TNetResourceArray;  
TNetResourceArray = array[0..0] of TNetResource;  
{ TNetworkItem }  
constructor TNetworkItem.Create;  
begin  
inherited;  
FSubItems := TNetworkItems.Create;  
end;&nb