Delphi 设置代理服务

  本文说明了用delphi设置IE浏览器的代理服务。

  参数说明：
    Proxy：代理服务器 IP 地址；
    Port：端口号；
    ByPass：对所有的协议均使用相同的代理服务器；
    bEnabled：是否使用代理服务器（代理服务器是否生效）、

  

 // 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;

具体的调用：

设置：
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;