Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Работа с сетью / Как узнать IP адрес.

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

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;

С уважением, Оксана (oksana@wtgres.pssr.ru)

-= Из конференции сайта MASTERS OF DELPHI (http://delphi.mastak.com) =-

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru