不再犹豫solo吉他原谱:如何设置本机IP地址

void __fastcall TIpChangerMainForm::FormCreate(TObject *Sender){//清空控件ComboBox1->Items->Clear();Edit1->Text="";Edit2->Text="";Edit3->Text="";Edit4->Text="";Edit5->Text="";Edit6->Text="";Label26->Caption="";Label13->Caption="";pStatus=(MIB_IPSTATS*)new char[sizeof(MIB_IPSTATS)];OldReceiveNumber=0;//读取数据，填充结构体int iAdapterNumber=0;//计算有几块网卡，准备初始化结构体ULONG ulAdapterInfoSize = sizeof(IP_ADAPTER_INFO);IP_ADAPTER_INFO *pAdapterInfo=(IP_ADAPTER_INFO*)new char[ulAdapterInfoSize];IP_ADAPTER_INFO *pAdapterInfoBkp;if(GetAdaptersInfo(pAdapterInfo, &ulAdapterInfoSize) == ERROR_BUFFER_OVERFLOW ) // 缓冲区不够大{    delete pAdapterInfo;    pAdapterInfo = (IP_ADAPTER_INFO*)new char[ulAdapterInfoSize];}if( GetAdaptersInfo(pAdapterInfo, &ulAdapterInfoSize) == ERROR_SUCCESS ){        pAdapterInfoBkp=pAdapterInfo;        while(pAdapterInfo){ // 遍历所有适配器,取得网络适配器数量               if(pAdapterInfo->Type == MIB_IF_TYPE_ETHERNET)            {                 iAdapterNumber++;               }        pAdapterInfo = pAdapterInfo->Next;          }}ArrayAdapterInfo.Length=iAdapterNumber;pAdapterInfo=pAdapterInfoBkp;int i=0;//读取网卡名字到ComboBox中while(pAdapterInfo){ // 遍历所有适配器        if(pAdapterInfo->Type == MIB_IF_TYPE_ETHERNET)         {              ComboBox1->Items->Add(pAdapterInfo->Description);              ArrayAdapterInfo[i]=*pAdapterInfo;              i++;         }          pAdapterInfo = pAdapterInfo->Next;      }ComboBox1->ItemIndex=0;SetDisplay(0);//取得选中的网卡的indexOldAdapterIndex=ArrayAdapterInfo[0].Index;NewAdapterIndex=OldAdapterIndex;delete pAdapterInfo;//读取TCP连接列表Timer2->Enabled=true;Timer2Timer(Sender);}//---------------------------------------------------------------------------void TIpChangerMainForm::SetDisplay(int i){//显示ip地址,mask,gatewayIP_ADDR_STRING *pIpList=&ArrayAdapterInfo[i].IpAddressList;IP_ADDR_STRING *pGateWayList=&ArrayAdapterInfo[i].GatewayList;while(pIpList)   {    Edit2->Text=pIpList->IpAddress.String;    Edit3->Text=pIpList->IpMask.String;    pIpList=pIpList->Next;   }while(pGateWayList)   {    Edit4->Text=pGateWayList->IpAddress.String;    pGateWayList=pGateWayList->Next;   }//显示DNS服务器ULONG ulAdapterInfoSizePer = sizeof(IP_PER_ADAPTER_INFO);IP_PER_ADAPTER_INFO *pAdapterInfoPer=(IP_PER_ADAPTER_INFO*)new char[ulAdapterInfoSizePer];if(GetPerAdapterInfo(ArrayAdapterInfo[i].Index, pAdapterInfoPer, &ulAdapterInfoSizePer) == ERROR_BUFFER_OVERFLOW ) // 缓冲区不够大{    delete pAdapterInfoPer;    pAdapterInfoPer = (IP_PER_ADAPTER_INFO*)new char[ulAdapterInfoSizePer];}if( GetPerAdapterInfo(ArrayAdapterInfo[i].Index,pAdapterInfoPer, &ulAdapterInfoSizePer) == ERROR_SUCCESS ){//取DNSIP_ADDR_STRING *pDnsList=&pAdapterInfoPer->DnsServerList;while(pDnsList)   {    Edit5->Text=pDnsList->IpAddress.String;    pDnsList=pDnsList->Next;    if(!pDnsList) break;    Edit6->Text=pDnsList->IpAddress.String;    pDnsList=pDnsList->Next;   }delete pDnsList;}//显示物理地址AnsiString StrMacAddress="";DynamicArray MacArray;MacArray.Length=ArrayAdapterInfo[i].AddressLength;for(int j=0;jText=StrMacAddress;//显示折线图Timer1->Enabled=true;if(GetIpStatistics(pStatus)==NO_ERROR)  {   OldReceiveNumber=pStatus->dwInReceives;   OldOutRequest=pStatus->dwOutRequests;  }delete pAdapterInfoPer;delete pGateWayList;delete pIpList;MacArray.Length=0;}