改变代理服务器

更改 IE 代理服务器设置 ,不重新启动 IE,代码如下 :
但如何设置某种协议为一特定地址呢 ,BYPASS 参数怎么用 ?

其实在 proxyserver 中 http=205.207.118.51:80;https=205.207.118.51:80;gopher=205.207.118.51:80;socks=205.207.118.51:80 是分别设置 ,如果只有地址和端口则是所有协议使用相同地址

function ChangeProxy(const Proxy, Port,ByPass: string; const bEnabled: boolean = True): boolean;

var

  reg: Tregistry;

  info: INTERNET_PROXY_INFO;

  Fproxy:string;

begin

  Result := False;

  FProxy:=Format('%s:%s',[Proxy,Port]);

  reg := Tregistry.Create;

  try

    reg.RootKey := HKEY_CURRENT_USER;

    if reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionInternet Settings', True) then

    begin

      reg.Writestring('ProxyServer', Fproxy);

      reg.WriteInteger('ProxyEnable', integer(bEnabled));

      info.dwAccessType := INTERNET_OPEN_TYPE_PROXY;

      info.lpszProxy := pchar(proxy);

      info.lpszProxyBypass := pchar(ByPass);

      InternetSetOption(nil, INTERNET_OPTION_PROXY, @info, SizeOf(Info));

      InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0);

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

//      Sendmessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0);

      Result:=True;

    end

  finally

    reg.CloseKey;

    reg.free;

  end;

end;

user urlmon,wininet;

procedure qiehuanproxy(const proxyname:string);

var info:TInternetProxyInfo;

  lngth:integer;

  h:integer;

  proxy :pChar;

  bypass :PChar;

  begin

  proxy:=pchar(proxyname);//proxy address:port

  bypass:=pChar('');

  info.dwAccessType := INTERNET_OPEN_TYPE_PROXY  ;

  info.lpszProxy :=proxy;

  info.lpszProxyBypass:=bypass;

  lngth:=sizeof(info);

   h:=UrlMkSetSessionOption(INTERNET_OPTION_PROXY ,@info,lngth,0);

end;

InternetSetOption(nil,INTERNET_OPTION_REFRESH, nil,0);

InternetSetOption(nil,INTERNET_OPTION_SETTINGS_CHANGED, nil,0);