delphi技术专题---获取网卡物理地址之内存获取方式函数源码

先贴代码：
[delphi]  
{----------------------------------------------------------------------------\- 
作者：sushengmiyan 2013.01.26 
参数：Alana: Integer = 0 
返回：string 
功能：通过LANA号获取Mac物理地址 （内存方式获取），整体步骤如下： 
    一、枚举系统上可用的所有LANA编号 
    二、重置计划使用的每个LANA编号 
    三、适配器命令获取网卡地址 
\-----------------------------------------------------------------------------}  
  
function MemGetNetCardName(Alana: Integer = 0): string;  
var  
  NCB: TNCB;//Netbios控制块  
  AdapterStatus: TAdapterStatus;//取网卡状态  
  LanaEnum: TLanaEnum; //LANA枚举值  
  I: Integer;  
  CRC: Char;//netBios返回值  
begin  
  Result := '';  
  Try  
  { http://blog.csdn.net/sushengmiyan/article/details/8543811 
    一、枚举LANA值 
      ①.申请分配一个TNCB结构           NCB: TNCB； 
      ②.将TNCB结构变量初始化成O        ZeroMemory(@NCB , SizeOf(NCB)); 
      ③.置命令为NCBENUM                NCB.ncb_Command := chr(NCBENUM); 
      ④.为ncb_buffer分配LANA_ENUM      NCB.ncb_buffer := @LANAENUM; 
      ⑤.为NCB_length制定长度           NCB.NCB_length := Sizeof(LANAENUM); 
      ⑥.调用Netbios函数获取Netbios     CRC := NetBios(@NCB); 
      ⑦.返回值NRC_GOODRET表示成功      NCB.ncb_retcode = Chr(NRC_GOODRET) 
    }  
    ZeroMemory(@NCB , SizeOf(NCB));  
    NCB.ncb_Command := Chr(NCBENUM);  
    NCB.ncb_buffer := @LANAENUM;  
    NCB.NCB_length := Sizeof(LANAENUM);  
    CRC := NetBios(@NCB);  
    if not (NCB.ncb_retcode = Chr(NRC_GOODRET)) then Exit;  
  
  
  { http://blog.csdn.net/sushengmiyan/article/details/8543811 
    二、重置计划使用的每个LANA编号 
      ①.申请分配一个TNCB结构           NCB: TNCB； 
      ②.将TNCB结构变量初始化成O        ZeroMemory(@NCB , SizeOf(NCB)); 
      ③.置命令为NCBRESET               NCB.ncb_Command := chr(NCBRESET); 
      ④.给命令设置LANA编号             NCB.ncb_lana_num := LanaEnum.lana[Alana]; 
      ⑤.调用Netbios函数获取Netbios     CRC := NetBios(@NCB); 
      ⑥.返回值NRC_GOODRET表示成功      NCB.ncb_retcode = Chr(NRC_GOODRET) 
    }  
    ZeroMemory(@NCB , SizeOf(NCB));  
    NCb.ncb_Command := Chr(NCBRESET);  
    NCB.ncb_lana_num := LanaEnum.lana[Alana];  
    CRC := Netbios(@NCB);  
    if not (NCB.ncb_retcode = Chr(NRC_GOODRET)) then Exit;  
  
   { http://blog.csdn.net/sushengmiyan/article/details/8543811 
    三、使用TAdapterStatus结构获取网卡地址 
      ①.申请分配一个TNCB结构           NCB: TNCB； 
      ②.将TNCB结构变量初始化成O        ZeroMemory(@NCB , SizeOf(NCB)); 
      ③.置命令为NCBASTAT               NCB.ncb_Command := chr(NCBASTAT); 
      ④.为ncb_buffer分配LANA_ENUM      NCB.ncb_buffer := @LANAENUM; 
      ⑤.设置ncb_callname               NCB.ncb_callname := '* ' + #0; 
      ⑥.为ncb_buffer分配AdapterStatus  NCB.ncb_buffer := @AdapterStatus; 
      ⑦.为NCB_length制定长度           NCB.NCB_length := Sizeof(AdapterStatus); 
      ⑧.调用Netbios函数获取Netbios     CRC := NetBios(@NCB); 
    }  
    ZeroMemory(@NCB , SizeOf(NCB));  
    NCb.ncb_Command := chr(NCBASTAT);  
    NCB.ncb_lana_num := LANAENUM.lana[Alana];  
    NCB.ncb_callname := '* ' + #0;  
    //不明白为何如此设置，*代表啥子？  
    //有懂的可以邮件分享 429119108@qq.com   O(∩_∩)O谢谢  
    NCB.ncb_buffer := @AdapterStatus;  
    NCB.ncb_length := SizeOf(AdapterStatus);  
    CRC := NetBios(@NCB);  
  
    //获取形如AA-BB-CC-DD-EE-FF形式的mac物理地址字符串  
    Result := '';  
    for I := 0 to 5 do  
    if SameStr(Result , '') then  
      Result := Result + IntToHex(Integer(AdapterStatus.adapter_address[I]) , 2)  
    else  
      Result := Result + '-' + IntToHex(Integer(AdapterStatus.adapter_address[I]) , 2);  
  Finally  
  
  End;  
end;  
 
关于理论方面的知识，前面已经介绍过了，如果遇到不明白的可以去前面几篇文章查看，这里面我也有不明白的，希望有明白的可以指教一下~O(∩_∩)O谢谢。
查看获取的mac地址是否正确的方式：
在Windows 2000/XP/Vista/WIN8中
点击 开始-运行-进入后输入ipconfig /all
在出现的结果中查找‘物理地址’或者Physical Address后的字符串即可。

补充：软件开发 , Delphi ,