获取当前网卡的mac的单元，使用直接引用里面的函数即可。PIPAddrString=^TIPAddrString; TIPAddrString=Record Next:PIPAddrString; IPAddress:TIPAddressString; IPMask:TIPAddressString; Context:Integer; End;