delphi 获取IP信息 ( 积分: 50 )

我想先判断当前网络是自动获取IP还是有静态IP,
然后再把IP,子网,网关,DNS信息取出.

procedure TForm1.FormCreate(Sender: TObject);
begin
self.Caption:=udpsocket1.LocalHostName;
self.Caption:=self.Caption+':'+udpsocket1.LocalHostAddr;
end;
这是得到本机的IP地址