http://topic.csdn.net/t/20060816/09/4952688.html

Delphi编程技巧之获得局域网计算机名列表         [原创   2005-10-13   20:33:17   |   发表者:   cmd9x]             
    
    
  一般的做法，是先得到局域网中的工作组名，然后再展开组得到到计算机名列表，这样以来，有可能效率会非常的低，但还是可以完成任务，至于所需要的时间（GOOD   LUCK）。   
    
  下面贴出常用的方法和本人觉得比较方便的方法，希望能帮上有需要的朋友。   
    
  首先在窗体中放一个TreeView控件，两个Button控件(btnOK,btnCancel)，然后在私有区声明蓝色部分：       
    
  private   
          procedure   GetComputerName;   //获取计算机名   
          procedure   GetGroupName;   //获取组名   
          {   Private   declarations   }   
      public   
    
          {   Public   declarations   }   
      end;   
    
  然后放一个ImageList控件，里面放上三个图标，分别代表网络、工作组、计算机，将TreeView控件的Images设置成这个ImageList。   
    
  //------------------------------------------------------   
  //获得局域网中的所有工作组   
  //------------------------------------------------------   
  procedure   Tform1.GetGroupName;   
  var   
      NetResource:   TNetResource;   
      Buf:   Pointer;   
      Count,   BufSize,   Res:   DWORD;   
      lphEnum:   THandle;   
      p:   TNetResourceArray;   
      i,   j:   SmallInt;   
      NetworkTypeList:   TList;   
      my_node_1:   Ttreenode;   
  begin   
  //     statusbar.panels[0].text   :=   '正在列举域名，请稍侯...';   
      Label1.Caption   :=   '正在列举域名...';   
      Application.ProcessMessages;   
  //     statusbar.refresh;   
      screen.Cursor   :=   crHourGlass;   
      NetworkTypeList   :=   TList.Create;   
      //获取整个网络中的文件资源的句柄，lphEnum为返回名柄   
      Res   :=   WNetOpenEnum(RESOURCE_GLOBALNET,   RESOURCETYPE_DISK,   
          RESOURCEUSAGE_CONTAINER,   nil,   lphEnum);   
      if   Res   <>   NO_ERROR   then   exit;   //执行失败   
      //获取整个网络中的网络类型信息   
      Count   :=   $FFFFFFFF;   //不限资源数目   
      BufSize   :=   8192;   //缓冲区大小设置为8K   
      GetMem(Buf,   BufSize);   //申请内存，用于获取工作组信息   
      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;   
      //WNetCloseEnum关闭一个列举句柄   
      Res   :=   WNetCloseEnum(lphEnum);   //关闭一次列举   
      if   Res   <>   NO_ERROR   then   exit;   
    
      for   J   :=   0   to   NetworkTypeList.Count   -   1   do   //列出各个网络类型中的所有工作组名称   
      begin   //列出一个网络类型中的所有工作组名称   
          NetResource   :=   TNetResource(NetworkTypeList.Items[J]^);   //网络类型信息   
      //获取某个网络类型的文件资源的句柄，NetResource为网络类型信息，lphEnum为返回名柄   
          Res   :=   WNetOpenEnum(RESOURCE_GLOBALNET,   RESOURCETYPE_DISK,   
              RESOURCEUSAGE_CONTAINER,   @NetResource,   lphEnum);   
          if   Res   <>   NO_ERROR   then   break;   //执行失败   
    
          while   true   do   //列举一个网络类型的所有工作组的信息   
          begin   
              Count   :=   $FFFFFFFF;   //不限资源数目   
              BufSize   :=   8192;   //缓冲区大小设置为8K   
              GetMem(Buf,   BufSize);   //申请内存，用于获取工作组信息   
                              //获取一个网络类型的文件资源信息，   
              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   
                  my_node_1   :=   treeview.Items.addchild(node,   StrPAS(P^.lpRemoteName));   //取得一个工作组的名称   
                  my_node_1.imageindex   :=   1;   
                  Inc(P);   
              end;   
          end;   
          Res   :=   WNetCloseEnum(lphEnum);   //关闭一次列举   
          if   Res   <>   NO_ERROR   then   break;   //执行失败   
      end;   
      FreeMem(Buf);   
      NetworkTypeList.Destroy;   
      screen.Cursor   :=   crDefault;   
  //     statusbar.panels[0].text   :=   '';   
  //     statusbar.refresh;   
      label1.Caption   :=   '';   
      TreeView.FullExpand;   
  end;   
    
  //------------------------------------------------------   
  //获取计算机名   
  //------------------------------------------------------   
  procedure   TFrom1.GetComputerName;   
  var   
      NetResource:   TNetResource;   
      Buf:   Pointer;   
      Count,   BufSize,   Res:   DWord;   
      Ind:   Integer;   
      lphEnum:   THandle;   
      Temp:   TNetResourceArray;   
      groupname:   string;   
      my_node:   Ttreenode;   
      my_node_2:   Ttreenode;   
  begin   
      screen.Cursor   :=   crHourGlass;   
  //     statusbar.panels[0].text   :=   '正在列举组名，请稍侯...';   
  //     statusbar.refresh;   
      Label1.Caption   :=   '正在列举组名...';   
      Application.ProcessMessages;   
      my_node   :=   treeview.Selected;   
      groupname   :=   treeview.Selected.Text;   
      FillChar(NetResource,   SizeOf(NetResource),   0);   //初始化网络层次信息   
      NetResource.lpRemoteName   :=   @GroupName[1];   //指定工作组名称   
      NetResource.dwDisplayType   :=   RESOURCEDISPLAYTYPE_SERVER;   //类型为服务器（工作组）   
      NetResource.dwUsage   :=   RESOURCEUSAGE_CONTAINER;   
      NetResource.dwScope   :=   RESOURCETYPE_DISK;   //列举文件资源信息   
      //获取指定工作组的网络资源句柄   
      Res   :=   WNetOpenEnum(RESOURCE_GLOBALNET,   RESOURCETYPE_DISK,   
          RESOURCEUSAGE_CONTAINER,   @NetResource,   lphEnum);   
      if   Res   <>   NO_ERROR   then   Exit;   //执行失败   
      while   True   do   //列举指定工作组的网络资源   
      begin   
          Count   :=   $FFFFFFFF;   //不限资源数目   
          BufSize   :=   8192;   //缓冲区大小设置为8K   
          GetMem(Buf,   BufSize);   //申请内存，用于获取工作组信息   
        //获取计算机名称   
          Res   :=   WNetEnumResource(lphEnum,   Count,   Pointer(Buf),   BufSize);   
          if   Res   =   ERROR_NO_MORE_ITEMS   then   break;   //资源列举完毕   
          if   (Res   <>   NO_ERROR)   then   Exit;   //执行失败   
          Temp   :=   TNetResourceArray(Buf);   
          for   Ind   :=   0   to   Count   -   1   do   //列举工作组的计算机名称   
          begin   
              //获取工作组的计算机名称，+2表示删除"\\"，如\\wangfajun=>wangfajun   
              my_node_2   :=   treeview.Items.AddChild(my_node,   Temp^.lpRemoteName   +   2);   
              my_node_2.imageindex   :=   2;   
              Inc(Temp);   
          end;   
      end;   
      Res   :=   WNetCloseEnum(lphEnum);   //关闭一次列举   
      if   Res   <>   NO_ERROR   then   exit;   //执行失败   
      FreeMem(Buf);   
      screen.Cursor   :=   crDefault;   
  //     statusbar.panels[0].text   :=   '';   
  //     statusbar.refresh;   
      Label1.Caption   :=   '';   
      TreeView.FullExpand;       
  end;   
    
  最后在TreeView的单击事件里写下：   
    
  procedure   TForm1.TreeViewClick(Sender:   TObject);   
  begin   
      if   treeview.Selected.Level   =   0   then   
      begin   
          if   treeview.Selected.count   =   0   then   
          //添加工作组名   
              GetGroupName;   
      end;   
      if   treeview.selected.level   =   1   then   
      begin   
          if   treeview.Selected.count   =   0   then   
          //添加计算机名   
              GetComputerName;   
      end;   
      if   treeview.Selected.level   =   2   then   
          btnOK.Enabled   :=   true   
      else   
          btnOK.Enabled   :=   false;   
  end;   
    
  procedure   TForm1.btnOKClick(Sender:   TObject);   
  begin   
      self.caption:=   treeview.Selected.Text;   
      close;//只要在这个值，即选中的计算机名   
  end;   
    
  procedure   TForm1.btnCancelClick(Sender:   TObject);   
  begin   
      close;   
  end;   

楼上的 说得真详细
收藏了

不好意思，接一分走人．

最简单的办法是通过控件得到.如TNMUDP啊或TTCPCLIENT控件中peer直接有本地的计算机名称和ip地址.

详细,真详细,呵呵.

这么 详细 值得收藏

学习学习一下

很详细