Enumerate Network Interfaces in Windows

EnumerateNetworkInterfaces.pas

uses
  System.SysUtils,
  Winapi.Windows,
  Winapi.IpTypes,
  Winapi.IpHlpApi;

var
  Adapter, Current: PIP_ADAPTER_ADDRESSES;
  Buffer: NativeInt;
  Error: DWord;
begin
  ReportMemoryLeaksOnShutdown := True;
  Error := GetAdaptersAddresses(0, 0, nil, nil, @Buffer);
  Assert(Error = ERROR_BUFFER_OVERFLOW);

  Adapter := AllocMem(Buffer);
  try
    Error := GetAdaptersAddresses(0, 0, nil, Adapter, @Buffer);
    Assert(Error = ERROR_SUCCESS);
    Current := Adapter;
    while Current <> nil do begin
      WriteLn(Current.FriendlyName);
      Current := Current.Next;
    end;
  finally
    FreeMem(Adapter);
  end;
  ReadLn;
end.