proxy в internet explorer

[dmitriegorovih]

Всем доброго времени суток! Подскажите пожалуйста, как программно присвоить прокси internet explorer(у)? Зарание Спасибо!
P.S. Система Windows 7 Delphi 7

[Stilet]

Тут уже недавно кто-то про это спрашивал, я его в реестр послал. Посмотри недавние темы, кажись паря нашел там нужную ветку, куда записываются данные прокси.

[dmitriegorovih]

Сообщение от Stilet

Тут уже недавно кто-то про это спрашивал, я его в реестр послал. Посмотри недавние темы, кажись паря нашел там нужную ветку, куда записываются данные прокси.

Благодарю. Если может кому пригодится я приведу код он конечно не фонтан но зато рабочий.
P.S. Regmon класная штука

uses ....,registry;
procedure TForm1.set_proxy_for_iexplore(proxy: string);
var
reg:TRegistry;
i:integer;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings\',false);
reg.WriteInteger('ProxyEnable',1);
reg.WriteString('ProxyServer',proxy);
reg.CloseKey;

reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections\',false);
buffersize:=1024;
buffersize2:=1024;
buffersize3:=1024;
reg.ReadBinaryData('DefaultConnectionSettings',buffer,buffersize);
reg.ReadBinaryData('Internet',buffer2,buffersize2);
reg.ReadBinaryData('SavedLegacySettings',buffer3,buffersize3);
buffer[12]:=length(proxy);
buffer2[12]:=length(proxy);
buffer3[12]:=length(proxy);
buffer[8]:=3; // "3" стоит галочка; "1" выключена;
buffer2[8]:=3;
buffer3[8]:=3;
for i:=1 to length(proxy) do
begin
if (proxy[i]<>'.') and (proxy[i]<>':') then
begin
buffer[15+i]:=48+strtoint(proxy[i]);
buffer2[15+i]:=48+strtoint(proxy[i]);
buffer3[15+i]:=48+strtoint(proxy[i]);
end;
if (proxy[i]='.') then
begin
buffer[15+i]:=46;
buffer2[15+i]:=46;
buffer3[15+i]:=46;
end;
if (proxy[i]=':') then
begin
buffer[15+i]:=58;
buffer2[15+i]:=58;
buffer3[15+i]:=58;
end;
end;
reg.WriteBinaryData('DefaultConnectionSettings',buffer,buffersize);
reg.WriteBinaryData('Internet',buffer2,buffersize2);
reg.WriteBinaryData('SavedLegacySettings',buffer3,buffersize3);
freeandnil(reg);
end;