Delphi代码获取网卡物理地址

以下是我从MSDN中翻译过来的三个Delphi单元，调用任意一个单元中声明的API都可以获取网卡的物理地址，但三个单元中的API函数的有效环境和功能各有不同，我把说明附于代码的注释中。

unit Lmwksta;

interface
uses
Windows , SysUtils , Dialogs;

type
_WKSTA_TRANSPORT_INFO_0 = packed record
    wkti0_quality_of_service : DWORD;
    wkti0_number_of_vcs : DWORD;
    wkti0_transport_name : PWideChar;{连接设备名称，这个名称是DEVICENetBT_TcpIp……我也不知道如何理解，不过我们只想获取MAC地址就不必管它了！}
    wkti0_transport_address : PWideChar;  // MAC地址
    wkti0_wan_ish : BOOL;  // 是否是广域网连接
end ;
WKSTA_TRANSPORT_INFO_0 = _WKSTA_TRANSPORT_INFO_0;
PWKSTA_TRANSPORT_INFO_0 =^ WKSTA_TRANSPORT_INFO_0;


const
NERR_Success = 0 ;
MAX_PREFERRED_LENGTH = $FFFFFFFF ;

// 当本计算机有可用的网卡，且已经连接上网络时，调用本函数才能成功，否则获取不到任何信息
function  NetWkstaTransportEnum(
           ServerName : PWideChar; // 主机名称，传递nil时表示本机
           Level : DWORD; // 传递0
           BufPtr : PPointer; {接受_WKSTA_TRANSPORT_INFO_0记录数组的缓冲区，有此函数自行分配，但使用完后要用下面定义的NetApiBufferFree函数释放内存}
           PrefMaxLen : DWORD; // 缓冲区最大长度，传递上面定义的MAX_PREFERRED_LENGTH常量即可
           EntriesRead , TotalEntries , ResumeHandle : PDWORD) : DWORD;stdcall;