delphi设置ie代理的方法

本文整理自网络，侵删。

 
uses UrlMon, WinInet,registry;

 //设置代理
function ChangeProxy(const Proxy,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]);
  Fproxy := Proxy;
  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 :=pansichar(proxy);
      info.lpszProxyBypass :=pansichar(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;
{调用：

//设置代理
ChangeProxy('192.168.1.2:8080','1',true);
//取消代理
ChangeProxy('192.168.1.2:8080','1',False);
}

 

相关阅读 >>

Delphi xe7中stringgrid组件的使用

Delphi中输入法模式imemode属性的解释

Delphi 网卡mac地址随机生成函数

Delphi 破解access密码

Delphi length 统计指定字符串的长度(即个数)

Delphi 对image字段存取图片、文件

Delphi xe中windows7新的taskbar功能的使用

Delphi getwindowtext - 获取窗口标题

Delphi win32，win64用于单/多线程计数素数的整数性能比较

idhttp获取文件大小的代码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi设置ie代理的方法