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