本文整理自网络，侵删。
{----------------------------------------------------------------------------\-作者：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后的字符串即可。
http://blog.csdn.net/sushengmiyan/article/details/8544442
相关阅读 >>
Delphi 任务栏显示进度条 createcomobject(clsid_taskbarlist) as itaskbarlist4
更多相关阅读请进入《Delphi》频道 >>
