delphi´úÀíÎÊÌâ Çó½â ÔÚÏßµÈ

delphi´úÀíÎÊÌâ Çó½â ÔÚÏßµÈ
procedure TForm1.Button3Click(Sender: TObject);
var
  info : INTERNET_PROXY_INFO;
  reg  : TRegistry;
begin

  reg := TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings',False) then
  begin
    reg.Writestring('ProxyServer','socks='+edit2.Text);
    reg.Writestring('ProxyEnable', '1');
  end;
  reg.CloseKey;
  reg.Free;

  info.dwAccessType:=INTERNET_OPEN_TYPE_PROXY;
  info.lpszProxy:=pchar('socks='+edit2.Text) ;
  InternetSetOption(nil,INTERNET_OPTION_PROXY,@info,1000);

  InternetSetOption(nil,INTERNET_OPTION_REFRESH, nil,0);
  InternetSetOption(nil,INTERNET_OPTION_SETTINGS_CHANGED, nil,0);

end;

ÎÒ°Ñ´úÀíµØַдÔÚ edit2.textÉÏÃæ È»ºó×¢²á±íÐ޸ĴúÀí

¿ÉÊÇinfo.lpszProxy:=pchar('socks='+edit2.Text) ; ÕâÒ»¾ä ²»¼Ópachr±àÒë²»³É¹¦
¼ÓÉÏÒÔºó ´úÀí²»Äܳɹ¦ÉèÖÃ

СµÜÎÊinfo.dwAccessType:=INTERNET_OPEN_TYPE_PROXY;
  info.lpszProxy:=pchar('socks='+edit2.Text) ;
  InternetSetOption(nil,INTERNET_OPTION_PROXY,@info,1000);

  InternetSetOption(nil,INTERNET_OPTION_REFRESH, nil