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

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



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

 

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

 

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

Code:

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