公司上外網(wǎng)需要用代理，在家ASDL又不需要，每次都要通過Internet選項->連接來切換，麻煩
上午找了個時間搜了些資料，隨便寫了個工具玩玩

點擊下載

---

?

2009-02-04

[*]在線版本檢查功能修改了版本比較方式，并將提示更改為中文
[+]增加了"創(chuàng)建快捷方式"按鈕，可以將常用設(shè)置組織為快捷方式放置在桌面，并可設(shè)置圖標和快捷鍵
圖為快捷方式顯示的代理設(shè)置信息，只要將鼠標移動到快捷方式上就可以看到

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;

轉(zhuǎn)載于:https://www.cnblogs.com/sephil/archive/2007/03/22/DynamicProxy.html

總結(jié)

以上是生活随笔為你收集整理的IE代理切换工具的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。