terça-feira, 13 de dezembro de 2011

(Pascal) Mudar Endereço de Proxy

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

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



Nenhum comentário:

Postar um comentário