Delphi编写 获取本机内网IP(非常简单)

新建一Project1，在form1中添加控件statusbar1(Win32页)和控件IdIPWatch1(Indy Misc页)。接着设置好控件属性：在statusbar1的panels中添加0-TStatusPanel和1-TStatusPanel两项；IdIPWatch1的HistoryEnabled的属性设为False。 ★黑基空间★!t3H2s
hB}bL

　　编写代码：在TForm1.FormCreate(Sender: TObject)中加入以下代码：★黑基空间★b#Y0KHK3R

★黑基空间★,ua:tBH

statusbar1.Panels[1].Text:=IdIPWatch1.LocalIP;

DX,s N(S ]1I/K j0m~0 ★黑基空间★b$a }E%vR%bCK:_

　　OK！按下F9功能键，运行程序，看一下窗口下边状态栏中是不是已经显示了本机的IP地址了？★黑基空间★6`3PM}C.k&e(T]

★黑基空间★5k,ergw2A

　　提示：若IdIPWatch1的HistoryEnabled的属性设为True，则会在程序退出时，自动生成一个文件(文件名为HistoryFileName属性设定的值)，记录当前的IP地址。★黑基空间★vf*TE!Z0fF9Tz