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

获取网卡MAC地址(Delphi源码) 获取网卡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) ; // Issue enum command cRC := NetBios(@NCB) ; if Ord(cRC)>0 then begin result:=_NBReturnMSG(crc); exit ; end; NCB.ncb_buffer := @LANAENUM ; // Reissue enum command NCB.ncb_length := SizeOf(LANAENUM); cRC := NetBios(@NCB) ; if Ord(cRC)>0 then begin result:=_NBReturnMSG(crc); exit ; end; ZeroMemory(@NCB,SizeOf(NCB)) ; // Reset adapter NCB.ncb_command := Chr(NCBRESET) ; NCB.ncb_lana_num := LANAENUM.lana[0] ; cRC := NetBios(@NCB) ; if Ord(cRC)>0 then begin result:=_NBReturnMSG(crc); exit ; end; ZeroMemory(@NCB,SizeOf(NCB)) ; // Get adapter address NCB.ncb_command := Chr(NCBASTAT) ; NCB.ncb_lana_num := LANAENUM.lana[0] ; StrPCopy(NCB.ncb_callname,'*') ; NCB.ncb_buffer := @ADAPTER ; NCB.ncb_length := SizeOf(ADAPTER) ; cRC := NetBios(@NCB) ; if Ord(cRC)>0 then begin result:=_NBReturnMSG(crc); exit ; end; // Convert Netcard address it to string strTemp := '' ; for intIdx := 0 to 5 do strTemp := strTemp + _Char2Hex(ADAPTER.adapter_address[intIdx]) ; Result := strTemp ; finally end ; end ;