Você não está conectado. Conecte-se ou registre-se

[Pascal] setProxy em Windows

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1 [Pascal] setProxy em Windows em Qui Dez 15, 2011 7:08 pm

[iPs]BrunoSilva

avatar
Administrador
Saudações!

Criei aqui uma função que muda o endereço de proxy atraves do registro no windows. Espero que gostem a função é bastante eficiente

Código:
function setInternetProxy(proxy:string);

var registroWindows : TRegistry;

begin

 registroWindows := TRegistry.Create;

 registroWindows.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings', false);

 registroWindows.WriteBool('ProxyEnable', true);
 registroWindows.WriteString('ProxyServer', proxy);


 registroWindows.CloseKey;
 registroWindows.Free;

end;

Exemplo de uso:
setInternetProxy('127.0.0.1:80');

Desenvolvido por Bruno da Silva

Ver perfil do usuário http://www.brunodasilva.com

2 Re: [Pascal] setProxy em Windows em Sex Dez 16, 2011 10:39 am

muito bom

Ver perfil do usuário

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum