Fórum Recupar informação do Proxy numa estação #324909
06/07/2006
0
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
Curtir tópico
+ 0
Responder
Posts
11/07/2006
Melo
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)