Delphi - база знаний


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


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



HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\ (для 98-винды)
Ищем параметр IPAddress
Программно можно определить следующим образом:

var
  WSAData: TWSAData;
  p: PHostEnt;
  Namearray[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)
Взято с сайта



Начало  Назад  Вперед



Книжный магазин