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

Материал из DRKB


HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\ (для 98-винды)

Ищем параметр IPAddress

Программно можно определить следующим образом:

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;


Source: http://blackman.wp-club.net/
ID: 03351