刚写好的读取多网卡IP地址的函数

虽然现在一机多网卡已经很普遍（像Notebook带有线、无线、蓝芽等），但是找一个现成的能够一次过读出所有网卡IP地址的函数实在是难，无奈自己写了一个，好东西谁用谁知道。

//uses WinSock;
type
  PAddrInfoW = ^ADDRINFOW;
  ADDRINFOW = record
    ai_flags        : Integer;      // AI_PASSIVE, AI_CANONNAME, AI_NUMERICHOST
    ai_family       : Integer;      // PF_xxx
    ai_socktype     : Integer;      // SOCK_xxx
    ai_protocol     : Integer;      // 0 or IPPROTO_xxx for IPv4 and IPv6
    ai_addrlen      : ULONG;        // Length of ai_addr
    ai_canonname    : PWideChar;    // Canonical name for nodename
    ai_addr         : PSOCKADDR;    // Binary address
    ai_next         : PAddrInfoW;   // Next structure in linked list
  end;
  PPaddrinfoW = ^PAddrInfoW;
  TAddrInfoW = ADDRINFOW;

function GetAddrInfoW(NodeName: PWideChar; ServiceName: PWideChar; Hints: PaddrinfoW; ppResult: PPaddrinfoW): Integer; stdcall; external 'WS2_32.DLL' name 'GetAddrInfoW';
procedure FreeAddrInfoW(ai: PaddrinfoW); stdcall; stdcall; external 'WS2_32.DLL' name 'FreeAddrInfoW';

procedure GetIPList(List: TStrings);
var
    Buffer: array[0..63] of AnsiChar;
    Hostname: string;
    Hints: TAddrInfoW;
    LAddrInfo: pAddrInfoW;
    RetVal: Integer;
    GInitData: TWSADATA;
begin
    WSAStartup($101, GInitData);
    GetHostName(Buffer, SizeOf(Buffer));
    Hostname := string(Buffer);
    ZeroMemory(@Hints, SizeOf(TAddrInfoW));
    Hints.ai_family := 2{AF_INET};
    Hints.ai_socktype := 1{SOCK_STREAM};
    LAddrInfo := nil;
    RetVal := GetAddrInfoW(PChar(Hostname), nil, @Hints, @LAddrInfo);
    try
        if (RetVal = 0) and (LAddrInfo <> nil) then
            repeat
                with TInAddr(LAddrInfo^.ai_addr^.sin_addr).S_un_b do
                    List.Add(Format('%d.%d.%d.%d', [Byte(s_b1), Byte(s_b2), Byte(s_b3), Byte(s_b4)]));
                LAddrInfo := LAddrInfo^.ai_next;
            until LAddrInfo = nil;
    finally
        FreeAddrInfoW(LAddrInfo);
        WSACleanup;
    end;
end;

PS：我用D2009，用低版本D的朋友麻烦自己改改了。

http://blog.csdn.net/nhconch/article/details/4897682