TAdapter_Rec = packed record
    AdapterName : String;
    FriendlyName: String;
    DHCP_Enabled: Boolean;
    IP_Address : String;
    Subnetmask : String;
    Gateway : String;
  end;

  TAdapter_Array = array of TAdapter_Rec;


function NetzwerkInfos_auslesen(var Liste: TAdapter_Array; out ErrorCode: Integer): Boolean;
var
  i : Byte;
  pAdapterList : PIP_ADAPTER_INFO;
  pAdapterAddresses : PIP_ADAPTER_ADDRESSES;
  LenAdapter_List : DWORD;
  LenAdapter_Address: DWORD;
  ErrorCode_List : DWORD;
  ErrorCode_Address : DWORD;
  AdapterName : String;

begin
  //Rückgabewerte vordefinieren
  Result := false;
  ErrorCode := 0;

  //Variable initialisieren
  i := 0;
  LenAdapter_List := 0;
  LenAdapter_Address := 0;
  ErrorCode_List := 0;
  ErrorCode_Address := 0;
  pAdapterList := nil; // Alles auf 0 ==> Benötigte Buffergrösse ermitteln

  //AdapterList
  ErrorCode_List := GetAdaptersInfo(pAdapterList, LenAdapter_List);

  If ErrorCode_List <> ERROR_BUFFER_OVERFLOW then
    begin
      ErrorCode := ErrorCode_List;

      exit;
    end;

  //Länge auslesen, bei Fehler Fehlercode setzen und Procedure beenden
  ErrorCode_Address := GetAdaptersAddresses(0, 0, nil, nil, @LenAdapter_Address);

  If ErrorCode_Address <> ERROR_BUFFER_OVERFLOW then
    begin
      ErrorCode := ErrorCode_Address;

      exit;
    end;

  //Speicher anfordern
  pAdapterList := AllocMem(LenAdapter_List);
  pAdapterAddresses := AllocMem(LenAdapter_Address);

  try
    //AdapterList auslesen
    ErrorCode_List := GetAdaptersInfo(pAdapterList, LenAdapter_List);

    //wenn das Auslesen der Adapter-List fehlgeschlagen hat, dann Fehlercode
    //setzen und Procedure beenden
    If ErrorCode_List <> ERROR_SUCCESS then
      begin
        ErrorCode := ErrorCode_List;

        exit;
      end;

    //AdapterAddresses auslesen
    ErrorCode_Address := GetAdaptersAddresses(0, 0, nil, pAdapterAddresses, @LenAdapter_Address);

    //wenn das Auslesen der Adapter-Addresses fehlgeschlagen hat, dann Fehlercode
    //setzen und Procedure beenden
    If ErrorCode_Address <> ERROR_SUCCESS then
      begin
        ErrorCode := ErrorCode_Address;

        exit;
      end;

    while Assigned(pAdapterList) do
      begin
        //Variable erhöhen
        inc(i);

        //Anzahl der Einträge erhöhen
        SetLength(Liste, i);

        Liste[Pred(i)].AdapterName := String(pAdapterList.AdapterName);
        Liste[Pred(i)].DHCP_Enabled := Boolean(pAdapterList.DhcpEnabled);
        Liste[Pred(i)].IP_Address := String(pAdapterList.IpAddressList.IpAddress.S);
        Liste[Pred(i)].Subnetmask := String(pAdapterList.IpAddressList.IpMask.S);
        Liste[Pred(i)].Gateway := String(pAdapterList.GatewayList.IpAddress.S);

        pAdapterList := pAdapterList.Next;
      end;


    while Assigned(pAdapterAddresses) do
      begin
        for i := low(Liste) to high(Liste) do
          If Liste[i].AdapterName = String(pAdapterAddresses.AdapterName) then
            begin
              Liste[i].FriendlyName := String(pAdapterAddresses.FriendlyName);

              break;
            end;

        pAdapterAddresses := pAdapterAddresses.Next;
      end;

    //Rückgabewert
    Result := true;
  finally
    //
    FreeMem(pAdapterList);
    FreeMem(pAdapterAddresses);
  end;
end;