Fehler beim auslesen GetIFRowData und GetAdaptersInfo

[Cyberaxx]

Ich sehe grad in einer anderen Unit, das man die Informationen etwas anders auslesen kann.

Habe das hier gefunden, ist ja auch ein Record also könnte man ihn ähnlich verwenden?
Ich würde gerne so viele Informationen bekommen wie es geht auch z.b. das hier die Mac-Adresse direkt als String ausgegeben wird.

Delphi-Quellcode:

// for IpHlpAdaptersInfo
  TAdaptorInfo = record
    AdapterName: string ;
    Description: string ;
    MacAddress: string ;
    Index: DWORD;
    aType: UINT;
    DHCPEnabled: UINT;
    CurrIPAddress: string ;
    CurrIPMask: string ;
    IPAddressTot: integer ;
    IPAddressList: array of string ;
    IPMaskList: array of string ;
    GatewayTot: integer ;
    GatewayList: array of string ;
    DHCPTot: integer ;
    DHCPServer: array of string ;
    HaveWINS: BOOL;
    PrimWINSTot: integer ;
    PrimWINSServer: array of string ;
    SecWINSTot: integer ;
    SecWINSServer: array of string ;
    LeaseObtained: LongInt ; // UNIX time, seconds since 1970
    LeaseExpires: LongInt;   // UNIX time, seconds since 1970
    AutoConfigEnabled: UINT ;  // next 4 from IP_Per_Adaptor_Info, W2K and later
    AutoConfigActive: UINT ;
    CurrentDNSServer: string ;
    DNSServerTot: integer ;
    DNSServerList: array of string ;
  end ;

  TAdaptorRows = array of TAdaptorInfo ;