以下是我从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
:




























