//----------------------
typedef DWORD (CALLBACK* GetadAptInfo)(PIP_ADAPTER_INFO, PULONG);
 HINSTANCE iphlpapi;
 iphlpapi=LoadLibrary("iphlpapi.dll");
 if (!iphlpapi)
    {
     ShowMessage( "Error of upload iphlpapi.dll!");
     Abort();
    }
 GetadAptInfo GetAdaptersInfo;
 GetAdaptersInfo = ( GetadAptInfo)
 GetProcAddress( iphlpapi, "GetAdaptersInfo");
 ULONG adapter_info_size = 0;
 PIP_ADAPTER_INFO pip_a_i = NULL;
 GetAdaptersInfo( pip_a_i, &adapter_info_size );
 pip_a_i = (PIP_ADAPTER_INFO)
                      malloc( sizeof(char) * adapter_info_size);
    if ( GetAdaptersInfo( pip_a_i, &adapter_info_size ))
       {
        ShowMessage("Error in GetAdaptersInfo!");
        free(pip_a_i);
        Abort();
       }
    while (pip_a_i)
          {
           Memo1->Lines->Add("Adapter's CLSID: " + (String)pip_a_i->AdapterName);
           Memo1->Lines->Add ("Name; " + (String)pip_a_i->Desc_ription);
           Memo1->Lines->Text =  Memo1->Lines->Text + "MAC address: ";
           for (int i = 0; i < pip_a_i->AddressLength; i++)
               {
                 Memo1->Lines->Text =  Memo1->Lines->Text + ((unsigned char)pip_a_i->Address[i]) + ".";
               }
           Memo1->Lines->Add("");
           pip_a_i = pip_a_i->Next;
          }
    free(pip_a_i);
    FreeLibrary(iphlpapi);