当然需要WINSOCK了
列举局域网内的工作组的代码
//************************************************************
type
TNetResourceArray = ^TNetResource;
function GetWorkGroupList( var myList : TStringList ) : Boolean;
var
NetResource : TNetResource;
Buf : Pointer;
Count,BufSize,Res : DWORD;
lphEnum : THandle;
p: TNetResourceArray;
i,j : SmallInt;
NetworkTypeList : TList;
begin
Result := False;
NetworkTypeList := TList.Create;
myList.Clear;
//打开网络资源牧举操作
Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
RESOURCEUSAGE_CONTAINER, nil,lphEnum);
if Res <> NO_ERROR then exit;
Count := $FFFFFFFF;
BufSize := 8192;
GetMem(Buf, BufSize);
//继续由WNetOpenEnum打开的网络资源牧举
Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);
if ( Res = ERROR_NO_MORE_ITEMS ) or (Res <> NO_ERROR ) then Exit;
P := TNetResourceArray(Buf);
for I := 0 to Count - 1 do //记录各个网络类型的信息
begin
NetworkTypeList.Add(p);
Inc(P);
end;
//结束由WNetOpenEnum打开的牧举
Res:= WNetCloseEnum(lphEnum);
if Res <> NO_ERROR then exit;
for J := 0 to NetworkTypeList.Count-1 do
begin
NetResource := TNetResource(NetworkTypeList.Items[J]^);
//打开网络资源牧举
Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
RESOURCEUSAGE_CONTAINER,
@NetResource,lphEnum);
if Res <> NO_ERROR then break;
while true do
begin
Count := $FFFFFFFF;
BufSize := 8192;
GetMem(Buf, BufSize);
//继续由WNetOpenEnum打开的网络资源牧举
Res := WNetEnumResource(lphEnum, Count,
Pointer(Buf), BufSize);
if ( Res = ERROR_NO_MORE_ITEMS ) or (Res <> NO_ERROR)
then break;
P := TNetResourceArray(Buf);
for I := 0 to Count - 1 do
begin
myList.Add(StrPAS( P^.lpRemoteName ));
Inc(P);
end;
end;
Res := WNetCloseEnum(lphEnum); //关闭牧举操作
if Res <> NO_ERROR then break;
end;
Result := True;
FreeMem(Buf);
NetworkTypeList.Destroy;
end;
//************************************************************
