文件名称:获取本机MAC,多网卡取当前使用的那个
文件大小:166KB
文件格式:RAR
更新时间:2011-12-31 07:32:16
MAC
function GetMACAddress: string; var AdapterList: TLanaEnum; NCB: TNCB; begin FillChar(NCB, SizeOf(NCB), 0); NCB.ncb_command := Char(NCBENUM); NCB.ncb_buffer := @AdapterList; NCB.ncb_length := SizeOf(AdapterList); Netbios(@NCB); if Byte(AdapterList.length) > 0 then Result := GetAdapterInfo(AdapterList.Lana[0]) else Result := '001122334455'; end;
【文件预览】:
GetMac本机MAC查看
----Project1.dof(3KB)
----Unit1.dcu(4KB)
----Project1.exe(367KB)
----Unit1.dfm(658B)
----uMAC.pas(1KB)
----Project1.cfg(434B)
----uMAC.dcu(2KB)
----Project1.dpr(211B)
----Unit1.~dfm(328B)
----Unit1.pas(478B)
----Project1.res(876B)
----Project1.~dpr(188B)
----Unit1.~pas(310B)