时间: 2021-07-31 作者:daque
大概办法:1:先创造一个窗体。2:将一个label1,一个按扭 bitbtn1,bittn2 放入窗体。3:对bitbtn1 的onclick 事变编制程序。编制程序如次:.......vartp:ttcpclient;strname,straddr:string;begintp:=ttcpclient.create(self);tp.close;tp.open;strname:=tp.localhostname;straddr:=tp.localhostaddr;label1.caption:=strname+' ip: '+straddr;tp.close;end;bitbtn2 的onclick 事变如次:.....beginclose;end; 如上步调,运转后,单击bitbtn1 按扭, label1 将表露出当地计划机的 ip地方 和计划机名。(结束)