BC++调用API显示内部局域网内的主机

//本段程序是几年前写,现在由于为写C#相同的功能,所以特别贴出来
//相同的C#程序,http://blog.csdn.net/zerodj/services/trackbacks/475349.aspx

#include <winsock2.h>
#include <winnetwk.h>

TTreeNode *Node1;
TTreeNode *Node2;
TTreeNode *Node3;
TTreeNode *gNode=NULL;
//---------------------------------------------------------------------------
void Tfrm_pc::getNetHood(char* domainname,char* msdomain){

 NETRESOURCE parent;
 LPNETRESOURCE pnr;
 HANDLE hEnum;
 DWORD BufSize;
 DWORD ResNum;

 ZeroMemory(&parent, sizeof(parent));
 pnr = (LPNETRESOURCE)GlobalAlloc(GMEM_FIXED, 1000);

 parent.dwScope = RESOURCE_GLOBALNET;
 parent.dwType = RESOURCETYPE_ANY;
 parent.dwDisplayType = RESOURCEDISPLAYTYPE_DOMAIN;
 parent.dwUsage = RESOURCEUSAGE_CONTAINER;

    if(AnsiString(domainname)=="");
    else parent.lpRemoteName = domainname;
    if(AnsiString(msdomain)=="");
    else parent.lpProvider = msdomain;

 WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, &parent, &hEnum);

 while(BufSize = 1000, ResNum = 1, WNetEnumResource(hEnum, &ResNum, pnr, &BufSize) == NO_ERROR) {

        Application->ProcessMessages();

        AnsiString pcname=AnsiString(pnr->lpRemoteName);
        if(pcname.Trim().SubString(0,2)==""){
            pcname=pcname.SubString(3,pcname.Length());
            tv->Items->AddChild(Node2,pcname);
            Node3=tv->Items->Item[tv->Items->Count-1];

            Node3->ImageIndex=2;
            Node3->SelectedIndex=2;

        }
        else if(pcname.LowerCase().Trim().Pos("microsoft windows ")>0){
            tv->Items->Add(NULL,pcname);
            Node1 = tv->Items->Item[tv->Items->Count-1];
            Node1->ImageIndex=0;
            Node1->SelectedIndex=0;
            getNetHood(NULL,pcname.c_str());
        }
        else{
            tv->Items->AddChild(Node1,pcname);
            Node2 = tv->Items->Item[tv->Items->Count-1];
            Node2->ImageIndex=1;
            Node2->SelectedIndex=1;
            getNetHood(pcname.c_str(),NULL);
        }

 }

 WNetCloseEnum(hEnum);

 GlobalFree(pnr);

}

//---------------------------------------------------------------------------
void __fastcall Tfrm_pc::FormCreate(TObject *Sender)
{

    TCursor oldcur=Screen->Cursor;
    Screen->Cursor = crHourGlass;

    tv->Items->Clear();  //TreeView的VCL组件
    getNetHood(NULL,NULL); //显示网络资源
    tv->FullExpand();

    Screen->Cursor=oldcur;

}
//---------------------------------------------------------------------------

我的主页:itbaby.jss.cn