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

Previous  Top  Next

    
 

 

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

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

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

 

Code:

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;

 

 

©Drkb::03351

Взято с сайта http://blackman.wp-club.net/