Нахождения собственного IP

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
;

Другое по теме:

• Загрузить web-страницу со скрытым IP
• Как оперделить все IP и порты на моем компьютере
• Как определить свой IP адрес