Recupar informação do Proxy numa estação
Como faço para recupera informação de um Servidor Proxy configurado no Brownser Padrão do windows, sem usar o Registro do Windows .
Obrigado
Obrigado
Melo
Curtidas 0
Respostas
Melo
06/07/2006
Adicionar no uses ´WinInet´
Function TForm1.ExibirConfigProxy : String;
var
P : pInternetProxyInfo;
SIZE : DWord;
begin
Result := ´´;
GetMem(p, Size);
InternetQueryOption(NIL,INTERNET_OPTION_PROXY,p,Size);
Result:= p^.lpszProxy;
end;
Function TForm1.ExibirConfigProxy : String;
var
P : pInternetProxyInfo;
SIZE : DWord;
begin
Result := ´´;
GetMem(p, Size);
InternetQueryOption(NIL,INTERNET_OPTION_PROXY,p,Size);
Result:= p^.lpszProxy;
end;
GOSTEI 0