怎样用程序修改IE中的代理服务器地址(50分)

急

更改HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings下的字符串　ProxyServer
比如改成：10.10.10.10:80
即可。

看看这个就知道了
[HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings]
(1)"GlobalUserOffline"=dword:00000000 是否脱机方式
(2)"User Agent"="Mozilla/4.0 (compatible; MSIE 4.01; Windows 98)" 设置代理程序
(3)"IE4_UA_Backup_Flag"="4.0" IE4.0 的User Agent程序的备份标志
(4)"EmailName"="IE40user@" 电子邮件名称
(5)"AutoConfigProxy"="wininet.dll" 使用wininet.dll 自动配置代理服务器
(6)"MimeExclusionListForCache"="multipart/mixed multipart/x-mixed-replace multipart/x-byteranges " 指定不放在缓存中的文件格式
(7)"Trust Warning Level"="High" 设置病毒检查级别
(8)"DisconnectIdleTime"=hex:14,00,00,00 设置自动断开连接前的空闲时间,分钟
(9)"EnableAutodisconnect"=hex:01,00,00,00 是否允许自动断开连接
(10)"EnableSecurityCheck"=hex:01,00,00,00 在拨号前是否允许进行安全检查
(11)"FtpDefaultExpiryTimeSecs"=hex:80,51,01,00 FTP服务器响应的最大时间
(12)"GopherDefaultExpiryTimeSecs"=hex:80,51,01,00 Gopher服务器响应的最大时间
(13)"HttpDefaultExpiryTimeSecs"=hex:c0,a8,00,00 Http服务器响应的最大时间
(14)"SyncMode"=hex:02,00,00,00 设置同步模式
(15)"UseSchannelDirectly"=hex:01,00,00,00 是否使用频道目录
(16)"EnableHttp1_1"=dword:00000001 是否允许使用HTTP 1.1版本
(17)"ProxyEnable"=hex:01,00,00,00 是否使用代理服务器
(18)"ProxyServer"="192.168.1.104:80" 代理服务器的IP地址及端口
(19)"EnableAutodial"=hex:00,00,00,00 是否允许自动拨号
(20)"AutoConnect"=hex:01,00,00,00 是否自动连接

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings]
"ProxyServer"="ftp=192.168.0.1:808;gopher=192.168.0.1:808;http=192.168.0.1:808;https=192.168.0.1:808;socks=192.168.0.1:1080"

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,Registry;

type
TForm1 = class(TForm)
HTTPEdt: TEdit;
SECUREEdt: TEdit;
FTPEdt: TEdit;
GOPHEREdt: TEdit;
SOCKSEdt: TEdit;
HTTPPORT: TEdit;
SECUREPORT: TEdit;
FTPPORT: TEdit;
GOPHERPORT: TEdit;
SOCKSPORT: TEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
READEDT: TEdit;
Button2: TButton;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
Var
Str: String;
Reg: TRegistry;
begin
Str:='http='+HTTPEdt.Text+':'+HTTPPORT.Text+
';FTP='+FTPEdt.Text+':'+FTPPORT.Text+
';GOPHER='+GOPHEREdt.Text+':'+GOPHERPORT.Text+
';SOCKS='+SOCKSEdt.Text+':'+SOCKSPORT.Text+'';
Try
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
if Reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Internet Settings',True) then
Reg.WriteString('ProxyServer',str);
finally
Reg.Closekey;
Reg.Free;
inherited;
end;
end;
end.
你到注册表里看一下就知道了，其实就是改一下PROXYSERVER，以前这种例子也很多。

给分，给分。

如果你是要动态更改并自动生效，这种方法是没用的，只是改变了但IE不会认新的代理地址。