delphi获取本机IP地址

      获取本机ip地址，其实方法有很多了，现在用windows api 在delphi下实现如下；

1. 在uses 里引用 winsock 单元。

2. 源码如下：

 

function GetLocalIP:string;
type
  TaPInAddr = array [0..10] of PInAddr;   //用于存储活动的ip地址列表
  PaPInAddr = ^TaPInAddr;
var
  phe  : PHostEnt;
  pptr : PaPInAddr;
  Buffer : array [0..63] of char;    //store hostname
  I    : Integer;
  GInitData      : TWSADATA;
  wVersion:word;
begin
  wVersion:=MAKEWORD(1,1);     //winsock dll version
  Result :='';
  if WSAStartup(wVersion, GInitData)=0 then   //初始化windows socket 
  begin
    if GetHostName(Buffer, SizeOf(Buffer))=0 then  //计算机名称
        phe :=GetHostByName(buffer);
    if phe = nil then
       Exit;
    pptr := PaPInAddr(Phe^.h_addr_list);
    I := 0;
    while pptr^[I] <> nil do begin
      result:=StrPas(inet_ntoa(pptr^[I]^));
      Inc(I);
    end;
    WSACleanup;           //关闭、清理windows socket
  end;
end;

3.该源码的不足的地方是如果机器上有2张及以上网卡，得到的是最后一个。