谁能实现不重新启动IE动态修改PROXY代理服务器？(200分)

清发个给俺试试,ROBLES@21CN.COM

To Robles：
代码已经发送，请查收~~~~~~~~~~

呵呵，我搞出来了，代码见下，要use wininet;
procedure TForm1.Button1Click(Sender: TObject);
var
info : INTERNET_PROXY_INFO;
reg : TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Internet Settings',False) then
begin
reg.Writestring('ProxyServer','172.23.23.23:8888');
reg.Writestring('ProxyEnable', '1');
end;
reg.CloseKey;
reg.Free;

info.dwAccessType:=INTERNET_OPEN_TYPE_PROXY;
info.lpszProxy:='172.23.23.23:8888';
InternetSetOption(nil,INTERNET_OPTION_PROXY,@info,1000);

InternetSetOption(nil,INTERNET_OPTION_REFRESH, nil,0);
InternetSetOption(nil,INTERNET_OPTION_SETTINGS_CHANGED, nil,0);
end;

To Kindly：
晕倒~~~~~~~~~~~~~~~

干嘛晕啊？我刚发了信给你就自己试了一下，结果试出来了，莫非你认为我贴的是你的程序？
我还没见到你的程序那～看看我贴贴子的时间就知道了

不用给我分了，我是借鉴了上面的帖子

thanks a lot