Как узнать IP адрес?

[AidarBik]

Как можно узнать IP адрес компьютера? Есть ли для этого какие-нибудь компоненты? Если есть, то какие?

[Aleksandr]

const WSVer = $101;
var
  wsaData: TWSAData;
  P: PHostEnt;
  Buf: array [0..127] of Char;
begin
  label1.Caption := '';
  if WSAStartup(WSVer, wsaData) = 0 then begin
    if GetHostName(@Buf, 128) = 0 then begin
      P := GetHostByName(@Buf);
      if P <> nil then label1.Caption := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
    end;
    WSACleanup;
  end;

В Uses пропиши WinSock

[gh-62]

или качай компонент: Online IP