关于调出本机IP地址的程序

                            
我正在学习网络编程,看到了一个例子可以调出本机的ip和主机名,但是我执行了以后发现调出来的是Ethernet   Adapter的地址,不是我上网用的PPP   Adapter的地址,请问如何解决,下面的程序我也一知半解.谢谢了。   
  procedure   TMyBrowser.GetIP;  
  var  
  wVersionRequested:WORD;  
  wsaData:TWSAData;  
  p:PHostEnt;  
  s:array[0..128]   of   char;  
  p2:pchar;  
  Output:array[0..100]   of   char;  
  begin  
  wVersionRequested:=MAKEWORD(1,1);  
  WSAStartup(wVersionRequested,wsaData);  
  GetHostName(@s,128);  
  p:=GetHostByName(@s);  
  p2:=iNet_ntoa(PInAddr(p^.h_addr_list^)^);  
  StrPCopy(Output,'IP   address:'+Format('%s',[p2]));  
  WSACleanup;  
  end;

查看回复