Delphi 设置代理服务

本文说明了用delphi设置IE浏览器的代理服务。
  参数说明：
    Proxy：代理服务器 IP 地址；
    Port：端口号；
    ByPass：对所有的协议均使用相同的代理服务器；
    bEnabled：是否使用代理服务器（代理服务器是否生效）、

[delphi] // uses Wininet, registry;
     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('\Software\Microsoft\Windows\CurrentVersion\Internet 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);
           Result:=True;
         end
       finally
         reg.CloseKey;
         reg.free;
       end;
     end;
具体的调用：
[delphi] 设置：
procedure TForm1.Button1Click(Sender: TObject);
begin
ChangeProxy('202.99.29.27','80','1',true)
end;
  
取消：
procedure TForm1.Button2Click(Sender: TObject);
begin
ChangeProxy('202.99.29.27','80','1',false)
end;