Delphi-Help

var 

  WSAData: TWSAData; 

  SockAddrIn: TSockAddrIn; 

  Host: PHostEnt; 

  // Эти переменные объявлены в Winsock.pas 

begin 

  if WSAStartup($101, WSAData) = 0 then begin 

    Host := GetHostByName(@Localname[1]); 

    if Host<>nil then begin 

      SockAddrIn.sin_addr.S_addr:= longint(plongint(Host^.h_addr_list^)^); 

      LocalIP := inet_ntoa(SockAddrIn.sin_addr); 

    end; 

    WSACleanUp; 

  end; 

end;