procedure TForm1.Button1Click(Sender: TObject);
var
MyReg:TRegistry;
begin
MyReg:=TRegistry.Create;
try
if Myreg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',False) then
begin
MyReg.WriteBool('ProxyEnable',True); //TRUE为有效啦
MyReg.WriteString('ProxyServer','17.40.23.18:80'); //ftp=192.168.0.1:81;gopher=192.168.0.1:81;http=192.168.0.1:81;https=192.168.0.1:81
end;
finally
MyReg.Free;
end;
end;