delphi一句话获取本机IP

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


本文来源转载请注明出处：http://www.3464.com/JiShu/Html_589.asp