Trabalhando com o Registro do Windows - Editando o Registro do Windows - Edit Regedit - Mudando o proxy do windows, ativando ou desativando o proxy pela edição no registro do Windows. Mudando para enable ou disable e informando a url e porta do PROXY SERVER


CODE

//[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]
//"ProxyEnable"=dword:00000001
//"ProxyServer"="http://proxy.ce.com.br:8080"

KeyPath is string = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
ok1, ok2 is boolean
ProxyEnable is string = "ProxyEnable"
ProxyServer is string = "ProxyServer"

ativo_inativo is int

IF RADIO_Ativa_Desativa = 1 THEN
ativo_inativo = 1
ELSE
ativo_inativo = 0
END

IF RegistryExist(registryMode64,KeyPath,ProxyEnable) = True THEN
ok1 = True
END
RegistrySetValue(registryMode64,KeyPath,ProxyEnable,ativo_inativo,registryTypeInt)


IF RegistryExist(registryMode64,KeyPath,ProxyServer) = True
ok2 = True
END
RegistrySetValue(registryMode64,KeyPath,ProxyServer,Lower(NoSpace(EDT_Url_Porta)),registryTypeString)

Info(ok1,ok2)

Close()

SOLICITAÇÃO FERNANDO ROCHA