利用Delphi编制IP地址转换器

　　procedure TForm1.Button1Click(Sender: TObject); //"确定"按钮的单击事件
begin
　　if RadioButton1.Checked then winexec('netsh -f netcfg1.txt',sw_normal) ;
　　if RadioButton2.Checked then winexec('netsh -f netcfg2.txt',sw_normal) ;
end;

　　这样，功能就实现了，这个小软件简单易用，在我周围的同学中已经广为流传，希望大家能够从中学习到简单易行的网络配置方法。