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

[Mihanches]

Как вы поняли из названия темы, у меня совершенно голимый вопрос. IP должен при нажатии на кнопку вписываться в edit1

[Stilet]

http://www.delphiworld.narod.ru/_all_articles_.html
Раздел TCP/IP - [22]

[Mihanches]

Мне там с телефона не найти)

[Stilet]

http://www.delphiworld.narod.ru/base/get_own_ip.html
http://www.delphiworld.narod.ru/base/name_to_ip.html
http://www.delphiworld.narod.ru/base/get_own_ip2.html
http://www.delphiworld.narod.ru/base/get_my_ip.html
...

там с телефона не найти

Это переводится словом "лень"

[_SERGEYX_]

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;

Edit1.Text := GetLocalIP;