• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

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

Delphi 搞代码 3年前 (2018-08-09) 144次浏览 已收录 0个评论

大体步骤:
1:先创建一个窗体。
2:将一个label1,一个按扭 bitbtn1,bittn2 放入窗体。
3:对BITBTN1 的ONCLICK 事件编程。
编程如下:
…….
var
tp:ttcpclient;
strname,straddr:string;
begin

http://www.gaodaima.com/?p=65914关于取本地计算机的IP地址及计算机名的看法_Delphi

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地址 和计算机名。(完毕)

欢迎大家阅读《关于取本地计算机的IP地址及计算机名的看法_Delphi,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址