本文整理自网络，侵删。
以下是我从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地址 www.delphitop.com
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变参的值被设置为实际需要的缓冲区大小，因此可以再行分配，以满足需
求,采用链表遍历操作可以获取所有已安装网卡的物理地址。
相关阅读 >>
Delphi intraweb 在iis下发布的web.config
Delphi xe7 的 android bitmap转jpg图的参数问题
Delphi 实现dns上线域名解析（用于远控server）
Delphi用idtcpserver和idtcpclient传输文件
Delphi idhttp组件+idhttpserver组件实现文件下载服务
更多相关阅读请进入《Delphi》频道 >>
