Delphi 版 MIB_IF_ROW2

unit netioapi;

interface

uses
  Windows;

  type

{$Z4}
  NDIS_MEDIUM = (
    NdisMedium802_3,
    NdisMedium802_5,
    NdisMediumFddi,
    NdisMediumWan,
    NdisMediumLocalTalk,
    NdisMediumDix, // defined for convenience, not a real medium
    NdisMediumArcnetRaw,
    NdisMediumArcnet878_2,
    NdisMediumAtm,
    NdisMediumWirelessWan,
    NdisMediumIrda,
    NdisMediumBpc,
    NdisMediumCoWan,
    NdisMedium1394,
    NdisMediumInfiniBand,
    NdisMediumMax // Not a real medium, defined as an upper-bound
  );
  NDIS_PHYSICAL_MEDIUM = (
    NdisPhysicalMediumUnspecified,
    NdisPhysicalMediumWirelessLan,
    NdisPhysicalMediumCableModem,
    NdisPhysicalMediumPhoneLine,
    NdisPhysicalMediumPowerLine,
    NdisPhysicalMediumDSL, // includes ADSL and UADSL (G.Lite)
    NdisPhysicalMediumFibreChannel,
    NdisPhysicalMedium1394,
    NdisPhysicalMediumWirelessWan,
    NdisPhysicalMediumNative802_11,
    NdisPhysicalMediumBluetooth,
    NdisPhysicalMediumInfiniband,
    NdisPhysicalMediumWiMax,
    NdisPhysicalMediumUWB,
    NdisPhysicalMedium802_3,
    NdisPhysicalMedium802_5,
    NdisPhysicalMediumIrda,
    NdisPhysicalMediumWiredWAN,
    NdisPhysicalMediumWiredCoWan,
    NdisPhysicalMediumOther,
    NdisPhysicalMediumMax // Not a real physical type, defined as an upper-bound
  );

  NET_IF_ACCESS_TYPE = (
    NET_IF_ACCESS_LOOPBACK = 1,
    NET_IF_ACCESS_BROADCAST = 2,
    NET_IF_ACCESS_POINT_TO_POINT = 3,
    NET_IF_ACCESS_POINT_TO_MULTI_POINT = 4,
    NET_IF_ACCESS_MAXIMUM = 5
  );

  TUNNEL_TYPE = (
    TUNNEL_TYPE_NONE = 0,
    TUNNEL_TYPE_OTHER = 1,
    TUNNEL_TYPE_DIRECT = 2,
    TUNNEL_TYPE_6TO4 = 11,
    TUNNEL_TYPE_ISATAP = 13,
    TUNNEL_TYPE_TEREDO = 14
  );

  NET_IF_DIRECTION_TYPE = (
    NET_IF_DIRECTION_SENDRECEIVE,
    NET_IF_DIRECTION_SENDONLY,
    NET_IF_DIRECTION_RECEIVEONLY,
    NET_IF_DIRECTION_MAXIMUM
  );

  NET_IF_ADMIN_STATUS = (
    NET_IF_ADMIN_STATUS_UP = 1,
    NET_IF_ADMIN_STATUS_DOWN = 2,
    NET_IF_ADMIN_STATUS_TESTING = 3
  );

  IF_OPER_STATUS = (
    IfOperStatusUp,
    IfOperStatusDown,
    IfOperStatusTesting,
    IfOperStatusUnknown,
    IfOperStatusDormant,
    IfOperStatusNotPresent,
    IfOperStatusLowerLayerDown
  );
  TIfOperStatus = IF_OPER_STATUS;

  NET_IF_MEDIA_CONNECT_STATE = (
    MediaConnectStateUnknown,
    MediaConnectStateConnected,
    MediaConnectStateDisconnected
  );

  NET_IF_CONNECTION_TYPE = (
    NET_IF_CONNECTION_DEDICATED = 1,
    NET_IF_CONNECTION_PASSIVE = 2,
    NET_IF_CONNECTION_DEMAND = 3,
    NET_IF_CONNECTION_MAXIMUM = 4
  );
{$Z-}

  TInterfaceAndOperStatusFlags = (
    HardwareInterface = $1,
    FilterInterface = $2,
    ConnectorPresent = $4,
    NotAuthenticated = $8,
    NotMediaConnected = $16,
    Paused = $32,
    LowPower = $64,
    EndPointInterface = $128
  );

  TInterfaceLuid = packed record
    Value: ULONG64;
  end;

  PMibIfRow2 = ^TMibIfRow2;
  TMibIfRow2 =  record
    InterfaceLuid: TInterfaceLuid;
    InterfaceIndex: ULONG;
    InterfaceGuid: TGUID;
    Alias:array[0..256] of WCHAR;
    Description:array[0..256] of WCHAR;
    PhysicalAddressLength: ULONG;
    PhysicalAddress: array[0..31] of UCHAR;
    PermanentPhysicalAddress:array[0..31] of UCHAR;
    Mtu: ULONG;
    Typet: ULONG;
    TunnelType: TUNNEL_TYPE;
    MediaType: NDIS_MEDIUM;
    PhysicalMediumType: NDIS_PHYSICAL_MEDIUM;
    AccessType: NET_IF_ACCESS_TYPE;
    DirectionType: NET_IF_DIRECTION_TYPE;
    InterfaceAndOperStatusFlags: Byte; { TInterfaceAndOperStatusFlags }
    OperStatus: IF_OPER_STATUS;
    AdminStatus: NET_IF_ADMIN_STATUS;
    MediaConnectState: NET_IF_MEDIA_CONNECT_STATE;
    NetworkGuid: TGUID;
    ConnectionType: NET_IF_CONNECTION_TYPE;

    TransmitLinkSpeed: ULONG64;
    ReceiveLinkSpeed: ULONG64;
    InOctets: ULONG64;
    InUcastPkts: ULONG64;
    InNUcastPkts: ULONG64;
    InDiscards: ULONG64;
    InErrors: ULONG64;
    InUnknownProtos: ULONG64;
    InUcastOctets: ULONG64;
    InMulticastOctets: ULONG64;
    InBroadcastOctets: ULONG64;
    OutOctets: ULONG64;
    OutUcastPkts: ULONG64;
    OutNUcastPkts: ULONG64;
    OutDiscards: ULONG64;
    OutErrors: ULONG64;
    OutUcastOctets: ULONG64;
    OutMulticastOctets: ULONG64;
    OutBroadcastOctets: ULONG64;
    OutQLen: ULONG64;
  end;

  function GetIfEntry2(Mib: PMibIfRow2): DWORD; stdcall; external 'Iphlpapi.dll';

implementation

end.