pasirodo, stai cia yra:
http://stackoverflow.com/questions/577071/how-do-i-get-the-mac-address-of-a-network-card-using-delphi

"saimhe" <oh.no@oh.my> wrote in message 
news:iri9ql$v0f$1@trimpas.omnitel.net...
>> (tinklo kortos pavadinimu, tarkim kaip ipcofing'e description) ir mac.
>> Kaip ant delphi padaryti tokį variantą? Išbandėm n variantų
>
>  Ant plikos C veikia šitas:
>
> ///////////////////////////////////////////////////////////
> PIP_ADAPTER_INFO pAdapterInfo = NULL, pAdapInfo;
> ULONG OutBufLen = 0;
>
> if( GetAdaptersInfo(NULL, &OutBufLen) == ERROR_BUFFER_OVERFLOW )
> {
>  pAdapterInfo = LocalAlloc(LMEM_FIXED, OutBufLen);
>
>  if( GetAdaptersInfo(pAdapterInfo, &OutBufLen) != ERROR_SUCCESS )
>  {
>   LocalFree(pAdapterInfo);
>   pAdapterInfo = NULL;
>  }
> }
> if (!pAdapterInfo)
> {
>  printf("GetAdaptersInfo: %08lX\n", GetLastError());
>  return 1;
> }
>
> for (pAdapInfo = pAdapterInfo; pAdapInfo; pAdapInfo = pAdapInfo->Next)
> {
>  int i;
>
>  for (i=0; i < (int)pAdapInfo->AddressLength; i++)
>   sprintf(&szBuffer[i*3], "%02X-", pAdapInfo->Address[i]);
>  szBuffer[i*3 - 1] = '\0';
>
>  puts(szBuffer);
>  printf("\t%s\n", pAdapInfo->AdapterName);
>  printf("\t%s\n", pAdapInfo->Description);
>  printf("\t%lu\n", pAdapInfo->Index);
>  printf("\t%lu\n", pAdapInfo->Type);
> }
> LocalFree(pAdapterInfo);
> ///////////////////////////////////////////////////////////
>
>   Ką tik patikrinau (XP Pro SP2):
>
> 00-FF-9C-8E-42-6A
>        {9C8E426A-8DB9-4577-8751-E6D4B1ED6690}
>        TAP-Win32 Adapter V9 - Packet Scheduler Miniport
>        327686
>        6
> 02-00-4C-4F-4F-50
>        {BDEC9A11-D79C-49B4-8E7E-C7210C221744}
>        Microsoft Loopback Adapter - Virtual Machine Network Services 
> Driver
>        327684
>        6
> 00-50-BF-58-E1-C8
>        {DF303E74-BFB7-4515-BF6E-110B84C17CA0}
>        Realtek RTL8139 Family PCI Fast Ethernet NIC - Packet Scheduler 
> Miniport
>        327685
>        6
> 00-15-AF-7C-74-25
>        {F7EEA31C-8863-4540-B578-AA2589326A23}
>        Atheros AR5006X Wireless Network Adapter - Packet Scheduler 
> Miniport
>        327687
>        6
> 00-50-56-C0-00-01
>        {521DE4CE-CA14-48ED-AE19-66947CC2E37F}
>        VMware Virtual Ethernet Adapter for VMnet1
>        3
>        6
> 00-50-56-C0-00-08
>        {0F4B6207-7C0C-47E6-BFC2-5A00F6E44BC2}
>        VMware Virtual Ethernet Adapter for VMnet8
>        2
>        6
>
>   Taigi nusiportinsi ir veiks.
>
> -- 
>  saimhe