获取本机网卡的物理地址程序(VB6.0源代码编写)' API函数声明 Private Declare Function Netbios Lib "netapi32.dll" (pNCB As NCB) As Byte Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long) Private
Delphi获取电脑IP地址、MAC网卡物理地址、本机名称等,网络相关信息获取,基本的Delphi网络参数获取代码,高手请绕行吧。通过调用Api函数gethostname,gethostbyname,wsastartup,uses中加winsock,介绍wsadata,phostent,msdn,另外gethostaddress。 function NBGetAdapterAddress(a: integer): String; a指定多个网卡适配器中的哪一个0,1,2... N