如何在程序中动态取得Win95/98的网络邻居中的工作组及计算机名?  
可参考下面代码，或许有所帮助：  
procedure GetDomainList(TV:TTreeView);  
var  
a : Integer;  
ErrCode : Integer;  
NetRes : Array[0..1023] of TNetResource;  
EnumHandle : THandle;  
EnumEntries : DWord;  
BufferSize : DWord;  
s : string;  
itm : TTreeNode;  
begin  
{ Start here }  
try  
With NetRes[0] do begin  
dwScope :=RESOURCE_GLOBALNET;  
dwType :=RESOURCETYPE_ANY;  
dwDisplayType :=RESOURCEDISPLAYTYPE_DOMAIN;  
dwUsage :=RESOURCEUSAGE_CONTAINER;  
lpLocalName :=NIL;  
lpRemoteName :=NIL;  
lpComment :=NIL;  
lpProvider :=NIL;  
end;  
{ get net root }  
ErrCode:=WNetOpenEnum(  
RESOURCE_GLOBALNET,  
RESOURCETYPE_ANY,  
RESOURCEUSAGE_CONTAINER,  
@NetRes[0],  
EnumHandle  
);  
If ErrCode=NO_ERROR then begin  
EnumEntries:=1;  
BufferSize:=SizeOf(NetRes);  
ErrCode:=WNetEnumResource(  
EnumHandle,  
EnumEntries,  
@NetRes[0],  
BufferSize  
);  
WNetCloseEnum(EnumHandle);  
ErrCode:=WNetOpenEnum(  
RESOURCE_GLOBALNET,  
RESOURCETYPE_ANY,  
RESOURCEUSAGE_CONTAINER,  
@NetRes[0],  
EnumHandle  
);  
EnumEntries:=1024;  
BufferSize:=SizeOf(NetRes);  
ErrCode:=WNetEnumResource(  
EnumHandle,  
EnumEntries,  
@NetRes[0],  
BufferSize  
);  
IF ErrCode=No_Error then with TV do try  
a:=0;  
Items.BeginUpDate;  
Items.Clear;  
Itm:=Items.Add(TV.Selected,string(NetRes[0].lpProvider));  
Itm.ImageIndex:=0;  
Itm.SelectedIndex:=0;  
{ get domains }  
下面的一个单元定义了一个组件. TNetworkBrowser, 可以枚举hierachical树上所有  
的网络资源. 实际上浏览是要花费很长时间的,这您可以通过在WINDOWS资源管理器  
中打开"整个网络" 来比较一下. 如果你设置SCOPE属性 为nsContext , 你就可以看到  
和网络邻居中一样的机器列表.  
unit NetBrwsr;  
interface  
uses  
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;  
type  
TNetScope = (nsConnected, nsGlobal, nsRemembered, nsContext);  
TNetResourceType = (nrAny, nrDisk, nrPrint);  
TNetDisplay = (ndDomain, ndGeneric, ndServer, ndShare, ndFile, ndGroup,  
ndNetwork, ndRoot, ndShareAdmin, ndDirectory, ndTree, ndNDSContainer);  
TNetUsage = set of (nuConnectable, nuContainer);  
TNetworkItems = class;  
TNetworkItem = class  
private  
FScope: TNetScope;  
FResour