Определение mac-адреса сетевой карты

#include <iphlpapi.h>

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#pragma comment(lib, "iphlpapi.lib")
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
String PrintMACaddress(BYTE *addr)
{
  String result = "";
  for (int i = 0; i < 6; ++i)
    result += IntToHex(*addr++, 2) + ((i < 5) ? "-" : "\n");
  return result;
}
//---------------------------------------------------------------------------
String GetMACaddress()
{
  IP_ADAPTER_INFO AdapterInfo[16];        // информация о 16 адаптерах макс
  DWORD dwBufLen = sizeof (AdapterInfo);  // кол-во байт в буффере
 
  DWORD dwStatus = GetAdaptersInfo(AdapterInfo, &dwBufLen);
  if (dwStatus != ERROR_SUCCESS)
  {
    ShowMessage("GetAdaptersInfo failed. err=" + String(GetLastError()));
    return 0;
  }
 
  PIP_ADAPTER_INFO pAdapterInfo = AdapterInfo;  // информация о текущем адаптере
  String address = "";
  while (pAdapterInfo)                          // пока есть информация об адаптерах
  {
    if (pAdapterInfo->Type == MIB_IF_TYPE_ETHERNET)
    {
      address = PrintMACaddress(pAdapterInfo->Address);  // печатаем MAC
      break;
    }
    pAdapterInfo = pAdapterInfo->Next;  // переходим к информации о следующем адаптере
  }
 
  return address;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonClick(TObject *Sender)
{
  Label->Caption = GetMACaddress();
}
//---------------------------------------------------------------------------