关于取本地计算机的IP地址及计算机名的看法

大体步骤：
源代码网推荐 1：先创建一个窗体。
源代码网推荐 2：将一个label1，一个按扭 bitbtn1,bittn2 放入窗体。
源代码网推荐 3：对BITBTN1 的ONCLICK 事件编程。
源代码网推荐 编程如下：
源代码网推荐 .......
源代码网推荐 var
源代码网推荐 tp:ttcpclient;
源代码网推荐 strname,straddr:string;
源代码网推荐 begin
源代码网推荐 tp:=ttcpclient.create(self);
源代码网推荐 tp.close;
源代码网推荐 tp.open;
源代码网推荐 strname:=tp.LocalHostName;
源代码网推荐 straddr:=tp.LocalHostAddr;
源代码网推荐 label1.caption:=strname " IP: " straddr;
源代码网推荐 tp.close;
源代码网推荐 end;
源代码网推荐
源代码网推荐 bitbtn2 的onclick 事件如下:
源代码网推荐 .....
源代码网推荐 begin
源代码网推荐 close;
源代码网推荐 end;
源代码网推荐 如上程序，运行后，单击bitbtn1 按扭， label1 将显示出本地计算机的 IP地址 和计算机名。（完毕）