一句话获取本机 IP

为什么80%的码农都做不了架构师？>>>   

//添加 TIdIPWatch 控件: IdIPWatch1
procedure TForm1.Button1Click(Sender: TObject);
var
  ip: string;
begin
  ip := IdIPWatch1.LocalIP;
  ShowMessage(ip);
end;

 
 
 
 
 

 

 

  

转载于:https://my.oschina.net/hermer/blog/319941