IE代理切换工具

公司上外网需要用代理，在家ASDL又不需要，每次都要通过Internet选项->连接来切换，麻烦
上午找了个时间搜了些资料，随便写了个工具玩玩

点击下载

---

 

2009-02-04

[*]在线版本检查功能修改了版本比较方式，并将提示更改为中文
[+]增加了"创建快捷方式"按钮，可以将常用设置组织为快捷方式放置在桌面，并可设置图标和快捷键
图为快捷方式显示的代理设置信息，只要将鼠标移动到快捷方式上就可以看到

2008-01-14
[*] 修正了版本显示部分
[+] 添加了在线版本检查功能

核心代码：
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;