如何更改Tweb控件的代理服务器,最好是仅改控件的,而不连IE的也一起改.(200分)

如何更改Tweb控件的代理服务器,最好是仅改控件的,而不连IE的也一起改.

帮你UP！

利用 INTERNET_OPTION_PROXY 及 INTERNET_OPTION_SETTINGS_CHANGED 兩函數。
不需改註冊表。
UNIT
wininet


procedure TForm1.ProxyComboBox1Exit(Sender: TObject);
var
inf:INTERNET_PROXY_INFO;

lenWord;

s:string;
begin
ServerDir1Exit(Sender);

s:=ProxyComboBox1.text;

if trim(s)<>'' then
begin
inf.dwAccessType:=INTERNET_OPEN_TYPE_PROXY;
inf.lpszProxy:=pchar(s);
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;