1:
2:
3:
4:
5:
6:
7:

procedure TNetEnumThread.Execute;
begin
  FreeOnTerminate := true;
  if terminated then exit;
  TreeNode:=nil;
  LoadNetNode(nil);
end;                    

1:
2:
3:
4:
5:
6:

procedure TMainForm.CancelAutoClick(Sender: TObject);
var
  Thread: TNetEnumThread;
begin
  Thread.Terminate;
end;                    

1:

if terminated then exit;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:

procedure TNetEnumThread.LoadNetNode(NetNode: PNetResourceA);
var hEnum : THandle;
    Count,BufSize, Usage: DWORD;
    NR,Buf: PNetResourceA;
    R: Integer;
    CurrentNode: TTreeNode;
begin
    R:=WNetOpenEnum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,0{RESOURCEUSAGE_CONTAINER},NetNode,hEnum);
    if R <> NO_ERROR then exit;

    BufSize:=InitialSize; GetMem(Buf,BufSize);
    try
        while True do
        begin
            Count:=$FFFFFFFF; // I wish to read ALL items
            R:=WNetEnumResource(hEnum,Count, Buf, BufSize);

            if R = ERROR_MORE_DATA then // Oops ! The InitialSize is too small !
            begin
                Count:=$FFFFFFFF; // I wish to read ALL items
                FreeMem(Buf); GetMem(Buf,BufSize);
                R:=WNetEnumResource(hEnum,Count, Buf, BufSize);
            end;

            if R = ERROR_NO_MORE_ITEMS then Break; // All items are processed
            if R <> NO_ERROR then Abort; // R is the error code. Process it!

            NR:=Buf;
            while Count > 0 do
            begin
               // CurrentNode:=TreeNode; // Remember current position

                if NR.lpRemoteName <> nil then
                    ChildNode:=StrPas(NR.lpRemoteName)
                else
                    ChildNode:='';

                // Gather node information and display it in textual form
                ChildNode:=ChildNode+'  DisplayType=';
                case NR.dwDisplayType of
                    RESOURCEDISPLAYTYPE_DOMAIN: ChildNode:=ChildNode+'Domain';
                    RESOURCEDISPLAYTYPE_GENERIC: ChildNode:=ChildNode+'Generic';
                    RESOURCEDISPLAYTYPE_SERVER: ChildNode:=ChildNode+'Server';
                    RESOURCEDISPLAYTYPE_SHARE: ChildNode:=ChildNode+'Share';
                    RESOURCEDISPLAYTYPE_GROUP: ChildNode:=ChildNode+'Group';
                    RESOURCEDISPLAYTYPE_NETWORK: ChildNode:=ChildNode+'Network';
                    RESOURCEDISPLAYTYPE_ROOT: ChildNode:=ChildNode+'Root';
                    RESOURCEDISPLAYTYPE_SHAREADMIN: ChildNode:=ChildNode+'ShareAdmin';
                    RESOURCEDISPLAYTYPE_DIRECTORY: ChildNode:=ChildNode+'Directory';
                    RESOURCEDISPLAYTYPE_TREE: ChildNode:=ChildNode+'Tree';
                    RESOURCEDISPLAYTYPE_NDSCONTAINER: ChildNode:=ChildNode+'NDS Container';
                else
                    ChildNode:=ChildNode+'? ('+IntToStr(NR.dwDisplayType)+')';
                end;

                if NR.dwScope = RESOURCE_GLOBALNET then // dwUsage member is usable in this case only
                begin
                    ChildNode:=ChildNode+'  Usage=';

                    Usage:=NR.dwUsage;
                    if (Usage and RESOURCEUSAGE_CONNECTABLE) <> 0 then ChildNode:=ChildNode+'Connectable;';
                    Usage:=Usage and not RESOURCEUSAGE_CONNECTABLE;

                    if (Usage and RESOURCEUSAGE_CONTAINER) <> 0 then ChildNode:=ChildNode+'Container;';
                    Usage:=Usage and not RESOURCEUSAGE_CONTAINER;

                    if (Usage and RESOURCEUSAGE_NOLOCALDEVICE) <> 0 then ChildNode:=ChildNode+'NoLocalDevice';
                    Usage:=Usage and not RESOURCEUSAGE_NOLOCALDEVICE;

                    if (Usage and RESOURCEUSAGE_SIBLING) <> 0 then ChildNode:=ChildNode+'Sibling';
                    Usage:=Usage and not RESOURCEUSAGE_SIBLING;

                    if (Usage and RESOURCEUSAGE_ATTACHED) <> 0 then ChildNode:=ChildNode+'Attached';
                    Usage:=Usage and not RESOURCEUSAGE_ATTACHED;

                    if (Usage and RESOURCEUSAGE_RESERVED) <> 0 then ChildNode:=ChildNode+'Reserved';
                    Usage:=Usage and not RESOURCEUSAGE_RESERVED;

                    if Usage <> 0 then ChildNode:=ChildNode+'? ('+IntToHex(Usage,8)+')';
                end;

                // Check for dwType value
                ChildNode:=ChildNode+'  Type=';
                case NR.dwType of
                    RESOURCETYPE_ANY: ChildNode:=ChildNode+'Any';
                    RESOURCETYPE_DISK: ChildNode:=ChildNode+'Disk';
                    RESOURCETYPE_PRINT: ChildNode:=ChildNode+'Print';
                else
                    ChildNode:=ChildNode+'?';
                end;

                // Analyze dwScope member
                ChildNode:=ChildNode+'  Scope=';
                case NR.dwScope of
                    RESOURCE_CONNECTED: ChildNode:=ChildNode+'Connected';
                    RESOURCE_GLOBALNET: ChildNode:=ChildNode+'Globalnet';
                    RESOURCE_REMEMBERED: ChildNode:=ChildNode+'Remembered';
                else
                    ChildNode:=ChildNode+'?';
                end;

                // Add new node to the tree view - and do it in the main thread
               // Synchronize(AddChildNode);
               // MainForm.TV.FullExpand;  // Treeview komplett expandieren !
                MainForm.ListBox2.Items.Add(childnode);
                // Process subnodes
                if terminated then exit;
                LoadNetNode(NR);

               // TreeNode:=CurrentNode; // restore current position
                                       // after modification

                // Go to the next record
                INC(NR);
                DEC(Count);
            end;
        end;
    finally
        WNetCloseEnum(hEnum); // Close handle
        FreeMem(Buf); // Free memory1
    end;
end;                    

1:

if not terminated then exit;                    

1:

if terminated then exit;                    

1:

if not termiated then loadnetnode;                    

1:
2:
3:
4:
5:
6:

procedure TMainForm.CancelAutoClick(Sender: TObject);
var
  Thread: TNetEnumThread;
begin
  Thread.Terminate;
end;