Delphi中快速得到本机IP地址

朋友在用Delphi编程时，经常会遇到需要在程序中获取自己的IP地址的情况。在以前的版本中，这个功能可以通过编写一段代码或函数来实现。但是有了Delphi 7，这项工作可以更加简化。控件只用一段代码就可以非常方便地实现这个功能。
创建一个新项目1并在form1中添加一个控件状态栏。

1(Win32页面)和控制IdIPWatch1(Indy Misc页面)。然后设置控件属性:将0-TStatusPanel和1-TStatusPanel添加到statusbar1的面板中；IdIPWatch1的HistoryEnabled属性设置为False。

编写代码:在t form 1 . form create(sender:to object)中添加以下代码:

statusbar1。面板[1]。Text:=IdIPWatch1。LocalIP

好吧！按F9功能键运行程序，并查看该机器的IP地址是否已显示在窗口底部的状态栏中。

提示:如果IdIPWatch1的HistoryEnabled属性设置为True，程序退出时会自动生成一个文件(文件名是HistoryFileName属性设置的值)，并记录当前IP地址。