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:
| Procedure MyServer.LANEnumResource(var List: TStringList);
const MaxEntries = 500;
var hEnum,
ihEnum,
khEnum : THandle;
buffer,
ibuffer,
kbuffer : array [0..MaxEntries] of TNETRESOURCE;
buffersize: cardinal;
Count,iCount,kCount: DWORD;
i, j, k : integer;
begin
List.Clear;
buffersize := sizeof(buffer);
if WNetOpenEnum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,0,NIL,hEnum) = NO_ERROR then
try
if WNetEnumResource(hEnum,Count,@buffer,buffersize) = NO_ERROR then begin
for i:=0 to Count-1 do begin
if WNetOpenEnum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,0,@buffer[i],ihEnum) = NO_ERROR then
try
if WNetEnumResource(ihEnum,iCount,@ibuffer,buffersize) = NO_ERROR then begin
for j:=0 to iCount-1 do
if WNetOpenEnum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,0,@ibuffer[j],khEnum) = NO_ERROR then
try
if WNetEnumResource(khEnum,kCount,@kbuffer,buffersize) = NO_ERROR then begin
for k:=0 to kCount-1 do
List.Add( kbuffer[k].lpRemoteName );
end;
finally
WNetCloseEnum(khEnum);
end;
end;
finally
WNetCloseEnum(ihEnum);
end;
end;
end;
finally
WNetCloseEnum(hEnum);
end;
end; |
