Как определить свой IP адрес

uses

  WinSock;

function

GetLocalIP: String

; const

WSVer = $101; var

  wsaData: TWSAData;   P: PHostEnt;
  Buf: array

[0..127] of

Char; begin

  Result := '';
  if

WSAStartup(WSVer, wsaData) = 0 then

begin

    if

GetHostName(@Buf, 128) = 0 then

begin

      P := GetHostByName(@Buf);       if

P <> nil

then

Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);     end

;     WSACleanup;   end

;
end

;
 

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

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