获取网卡MAC地址(Delphi源码).docVIP

获取网卡MAC地址 //调用时先uses nb30.pas function _NetCardAddress : String ; var NCB : TNCB ; // Netbios control block ADAPTER : TADAPTERSTATUS ; // Netbios adapter status LANAENUM : TLANAENUM ; // Netbios lana intIdx : Integer ; // Temporary work value CRC : Char ; // Netbios return code strTemp : String ; // Temporary string begin Result := ; try ZeroMemory(@NCB,SizeOf(NCB)) ; // Zero control blocl NCB.ncb_command := Chr(NCBENUM) ; // I