这个是你需要的,MyIE等也是用这个原理。
记住,这个只是动态设置,不改变IE属性里面的代理设置。退出后就失效.
如果你需要真正的修改IE代理的设置而不是WebBrowser的设置,那么你只需要修改注册表中响应项目。
uses wininet, HTTPApp, HttpProxy;
procedure SetIEProxy(AProxy: String);
var
inf: INTERNET_PROXY_INFO;
len: DWord;
begin
if trim(AProxy) <> '' then
begin
inf.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
inf.lpszProxy := pchar(AProxy);
inf.lpszProxyBypass := nil;
len := sizeof(inf);
InternetSetOption(nil, INTERNET_OPTION_PROXY, @inf, len);
InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0);
end
else
begin
inf.dwAccessType := INTERNET_OPEN_TYPE_DIRECT;
inf.lpszProxy := nil;
inf.lpszProxyBypass := nil;
len := sizeof(inf);
InternetSetOption(nil, INTERNET_OPTION_PROXY, @inf, len);
InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0);
end;
end;