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;
{
连接设备名称，这个名称是/DEVICE
/NetBT_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;

{
EntriesRead为返回的_WKSTA_TRANSPORT_INFO_0记录数组的元素个数,至于TotalEntries和
ResumeHandle，可以传递nil，需要更深入的了解，请参见MSDN
}

function
NetApiBufferFree(Buffer:Pointer):DWORD;stdcall;

implementation

function
NetWkstaTransportEnum;external
'
netapi32.dll
'
name
'
NetWkstaTransportEnum
'
;

function
NetApiBufferFree;external
'
netapi32.dll
'
name
'
NetApiBufferFree
'
;

end
.

unit Rpcdce;

interface

uses

Windows,SysUtils;

type

TUUID
=
packed

record

Data1:ULONG;

Data2:Word;

Data3:Word;

Data4:
array
[
0
..
7
]
of
Byte;
//
此数组的后6个元素就是网卡的物理地址信息

end
;

TGUID
=
TUUID;

PUUID
=
^TUUID;

const

{
以下为UuidCreateSequential函数的可能返回值
}

RPC_S_UUID_LOCAL_ONLY:LongInt
=
1824
;
//
函数生成的GUID只能保证在本计算机上是唯一的

RPC_S_UUID_NO_ADDRESS:LongInt
=
1739
;
//
不
能获取以太网或令牌环网网卡设备

RPC_S_OK:LongInt
=
0
;
//
函数调用成功，生成的GUID中包含了网卡的物理地址信息

function
UuidCreateSequential(
var

uuid:TUUID):Cardinal;stdcall;
//
此函数只使用于单网卡的机器

function
GetMACAddress:string;

implementation

function
UuidCreateSequential;external
'
Rpcrt4.dll
'
name
'
UuidCreateSequential
'
;

//
引用此单元后，只需要调用GetMACAddress函数即可获得网卡物理地址

function
GetMACAddress:string;

var

uuid:TUUID;

I:Integer;

begin

Result:
=
''
;

if
UuidCreateSequential(uuid)
=
RPC_S_OK

then

for
I:
=
2

to

7

do

begin

if
I
>
2

then
Result:
=
Result
+
'
-
'
;

Result:
=
Result
+
IntToHex(uuid.Data4[I],
2
);

end
;

end
;

end
.

unit IPHlpAPI;

interface

uses

Windows,SysUtils,Classes;

const

MAX_ADAPTER_DESCRIPTION_LENGTH
=
128
;

MAX_ADAPTER_NAME_LENGTH
=
256
;

MAX_ADAPTER_ADDRESS_LENGTH
=
8
;

DEFAULT_MINIMUM_ENTITIES
=
32
;

MAX_HOSTNAME_LEN
=
128
;

MAX_DOMAIN_NAME_LEN
=
128
;

MAX_SCOPE_ID_LEN
=
256
;

ERROR_NO_DATA:LongInt
=
232
;

ERROR_NOT_SUPPORTED:LongInt
=
50
;

ERROR_INVALID_PARAMETER:LongInt
=
87
;

ERROR_BUFFER_OVERFLOW:LongInt
=
111
;

type

time_t
=
Integer;

IP_ADDRESS_STRING
=
packed

record

Addr:
array
[
0
..
15
]
of
Char;

end
;

PIP_ADDRESS_STRING
=
^IP_ADDRESS_STRING;

IP_MASK_STRING
=
IP_ADDRESS_STRING;

PIP_MASK_STRING
=
^IP_MASK_STRING;

PIPAdapterInfo
=
^TIPAdapterInfo;

TIPAdapterInfo
=
packed

record

Next:PIPAdapterInfo;
//
下一个节点的指针

ComboIndex:DWORD;

AdapterName:
array
[
0
..MAX_ADAPTER_NAME_LENGTH
+

3
]
of
Char;
//
适配器名称

Description:
array
[
0
..MAX_ADAPTER_DESCRIPTION_LENGTH
+

3
]
of
Char;
//
适
配器描述信息

AddressLength:UINT;
//
Address域的最大长度,传递
MAX_ADAPTER_ADDRESS_LENGTH常量即可

Address:
array
[
0
..MAX_ADAPTER_ADDRESS_LENGTH
-
1
]
of
Byte;
//
适配器物理地址

Index:DWORD;

uType:UINT;

DhcpEnabled:UINT;

CurrentIpAddress:PIP_ADDRESS_STRING;

IpAddressList:IP_ADDRESS_STRING;

GatewayList:IP_ADDRESS_STRING;

DhcpServer:IP_ADDRESS_STRING;

HaveWins:BOOL;

PrimaryWinsServer:IP_ADDRESS_STRING;

SecondaryWinsServer:IP_ADDRESS_STRING;

LeaseObtained:time_t;

LeaseExpires:time_t;

end
;

//
此函数功能最强大，而且只要求网卡在系统
中可用，并不要求一定连接上网络

function
GetAdaptersInfo(Buf:PIPAdapterInfo;
var
BufLen:ULONG):DWORD;stdcall;

implementation

function
GetAdaptersInfo;external
'
iphlpapi.dll
'
name
'
GetAdaptersInfo
'
;

end
.

对于GetAdaptersInfo函数，Buf参数要求函数的调用者自行分配，如果分配的空间不足，函数返回
ERROR_BUFFER_OVERFLOW，BufLen变参的值被设置为实际需要的缓冲区大小，因此可以再行分配，以满足需

求,采用
链表遍历操作可以获取所有已安装网卡的物理地址。