Поставить прокси в Ie

[Noctambulaar]

Помогите с программной реализацией (желательно дельфи), чтобы прокси ставило не на настройки LAN, а на настройки удалённого доступа (для интернета). Пробовал через реестр, но инфа в реестре не влияет на настройки прокси IE. (127.0.0.1:5522 - socks, нужно ставить только сокс).

http://noctambulaar.ru/test/das.JPG

Выслушаю всех, только вначале разберитесь, чтобы не для LAN было, так как таких примеров много. В реестре меняю, а в IE не меняется. Ставлю прокси в IE, тогда в реестре меняется.

[n0153r]

Сталкивался с таким.Нужно перезагрузить настройки ИЕ тогда он подтянет настройки с реестра.Буду дома закину пример на делфи.

[TR0J@N]

Пример на Basic (может поможет)

Private Type INTERNET_PROXY_INFO2
dwAccessType As Long
lpszProxy As String
lpszProxyBypass As String
End Type
Private Declare Function InternetSetOption Lib "wininet.dll" Alias "InternetSetOptionA" (ByVal hInternet As Long, ByVal dwOption As Long, ByRef lpBuffer As Any, ByVal dwBufferLength As Long) As Long
Public Function ApplyProxy(Inject As Boolean) As Long
Dim strServers As String
Dim strBuffer As String
Dim ProxyInfo As INTERNET_PROXY_INFO2
strBuffer = "socks=127.0.0.1:44 https=127.0.0.1:44 http=127.0.0.1:44 " & _
"gopher=127.0.0.1:44 ftp=127.0.0.1:44"
strServers = RTrim$(strBuffer)
If Inject = True Then ProxyInfo.dwAccessType = 3 Else ProxyInfo.dwAccessType = 1
ProxyInfo.lpszProxy = strServers
ProxyInfo.lpszProxyBypass = ""
ApplyProxy = InternetSetOption(0&, 38, ProxyInfo, LenB(ProxyInfo))
End Function