朋友们在用Delphi编程序的时候
常常碰到需要在程序中获取自己的IP地址的情况
在以往的版本中
可以通过编写一段代码或函数实现这一功能
但有了Delphi
这个工作可以更简化了
利用控件只需一句代码
就可以非常方便地实现这一功能
新建一Project在form中添加控件statusbar
(Win页)和控件IdIPWatch(Indy Misc页)接着设置好控件属性在statusbar的panels中添加TStatusPanel和TStatusPanel两项IdIPWatch的HistoryEnabled的属性设为False
编写代码在TFormFormCreate(Sender: TObject)中加入以下代码
statusbarPanels[]Text:=IdIPWatchLocalIP;
OK！按下F功能键运行程序看一下窗口下边状态栏中是不是已经显示了本机的IP地址了？
提示若IdIPWatch的HistoryEnabled的属性设为True则会在程序退出时自动生成一个文件(文件名为HistoryFileName属性设定的值)记录当前的IP地址
