delphi ÈçºÎʵÏÖÍøվˢIPµÄ²Ù×÷

delphi ÈçºÎʵÏÖÍøվˢIPµÄ²Ù×÷

var
  Form1: TForm1;
  Nid:integer ;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.Execute then
memo1.Lines.LoadfromFile(opendialog1.FileName);
begin
if memo1.Lines[0]='' then
showmessage('ÇëÌí¼Ó´úÀíµØÖ·')
else
button3.Click;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate(edit1.Text);
application.ProcessMessages;
end;

procedure TForm1.Button4Click(Sender: TObject);
var  reg: Tregistry;
begin
timer1.Enabled:=false;
if edit1.Text <> '' then
begin//×¢²á±íÌí¼Ó´úÀíµØÖ·
button3.Click;
webbrowser1.Navigate(edit1.Text);
application.ProcessMessages;
reg:=Tregistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER;
if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', True) then
begin
reg.Writestring('ProxyServer', edit2.Text);
reg.WriteInteger('ProxyEnable', 1  );
end
finally
reg.CloseKey;
reg.free;

timer1.Interval:=strtoint(edit3.Text);
timer1.Enabled:=true;

end;

end
else
b