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;