delphi获取网卡信息代码

delphi获取网卡信息代码Functionsendarp;External'Iphlpapi.dll'Name'SendARP';FunctionGetAdaptersInfo(AI:PIPAdapterInfo;VarBufLen:Integer):Integer;StdCall;External'iphlpapi.dll'Name'GetAdaptersInfo';