下面的过程可以列举你机器的所有IP地址，当然也包括Lan和Internet，使用方法：       用语句Memo1.Lines.Add('本机IP地址:'+LocalIP);就可以       //返回本机IP地址，多个地址之间用回车换行分隔       function   LocalIP   :   string;       type               TaPInAddr   =

李维 《Dephi.NET托管与非托管代码》 下载