delphi 设置IE代理 如何立即生效

Question

delphi 设置IE代理 如何立即生效事了很多代码都不行 求可行的代码

Answer 1

procedure ChangeProxy(Addr: string; Bypass, Enabled: Boolean);
   var
     Info: INTERNET_PROXY_INFO;
     Reg : TRegistry;  
   begin  
    Reg := TRegistry.Create;  
   try  
    Reg.RootKey := HKEY_CURRENT_USER;  
    if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', False) then  
    begin
       Reg.WriteString('ProxyServer', Addr);
      Reg.WriteInteger('ProxyEnable', Integer(Enabled));  
  
       if Bypass then  
         Reg.WriteString('ProxyOverride', '<local>')  
       else  
        Reg.DeleteValue('ProxyOverride');  
     end;  
    finally  
      Reg.CloseKey;  
      Reg.Free;  
   end;  
    
   Info.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
    Info.lpszProxy := PChar(Addr);
   InternetSetOption(nil, INTERNET_OPTION_PROXY, @Info, 1000);  
   InternetSetOption(nil, INTERNET_OPTION_REFRESH, nil, 0);  
    InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0);  
  end;procedure TForm1.Button1Click(Sender: TObject); begin
ChangeProxy(edit1.Text ,true ,true);
end;
end.你试试