Информация сайта компьютерной безопасности
<<< Hack Style >>>

так что у нас с IP адресом... 
будем определять!

var
 WSAData : TWSAData;
  p : PHostEnt;
  Name : array [0..$FF] of Char;
begin
  WSAStartup($0101, WSAData);
  GetHostName(name, $FF);
  p := GetHostByName(Name);
  showmessage(inet_ntoa(PInAddr(p.h_addr_list^)^));
  WSACleanup;
end;

вот сдесь inet_ntoa(PInAddr(p.h_addr_list^)^) и будет наш айпи

так определили ... так еще можно проверить нахождение в сети
те если наш ip не равен 127.0.0.1 то мы в сети...

Все права защищены ~< KAPMAH >~
www.HackStyle.narod.ru