[Pascal] setProxy em Windows

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

muito bom