Delphi如何获取计算机名和IP地址的源码例子.rar

Delphi如何获取计算机名和IP地址的源码例子，基础级的Delphi初学者范例，网络编程基础实例，程序核心部分代码如下：p:=GetHostByAddr(@InetAddr, Length(sIP), PF_Inet); 　　 memo1.lines.add('IP地址：' sIP); 　　 memo1.lines.add('计算机名：' p^.h_name); 　　 memo1.lines.add('别名：' string(p^.h_aliases)); 　　 memo1.lines.add('地址类型：' chr(p^.h_addrtype 64)); 　　 //p^