如何使用Delphi获取网卡的MAC地址？

program GetMacAddress;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows,
  IpHlpApi;

function GetMacAddress: string;
var
  pAdapterInfo: PIP_ADAPTER_INFO;
  pAdapter: PIP_ADAPTER_INFO;
  dwRetVal: DWORD;
  i: Integer;
  macAddress: string;
begin
  pAdapterInfo := nil;
  dwRetVal := GetAdaptersInfo(pAdapterInfo, nil);
  if dwRetVal = ERROR_BUFFER_OVERFLOW then
  begin
    pAdapterInfo := AllocMem(dwRetVal);
    dwRetVal := GetAdaptersInfo(pAdapterInfo, dwRetVal);
    if dwRetVal = NO_ERROR then
    begin
      pAdapter := pAdapterInfo;
      while pAdapter <> nil do
      begin
        macAddress := '';
        for i := 0 to pAdapter^.AddressLength - 1 do
        begin
          if i > 0 then
            macAddress := macAddress + '-';
          macAddress := macAddress + IntToHex(pAdapter^.Address[i], 2);
        end;
        Result := macAddress;
        pAdapter := pAdapter^.Next;
      end;
    end;
  end;
  if Assigned(pAdapterInfo) then
    FreeMem(pAdapterInfo);
end;

begin
  try
    WriteLn('MAC address: ' + GetMacAddress);
  except
    on E: Exception do
      WriteLn(E.ClassName, ': ', E.Message);
  end;
end.