[Inqizitor]

Сообщение от lmikle

У меня вот так работает:

Код:

uses WinInet;

procedure TForm1.Button1Click(Sender: TObject);
var
  proxyinfo: pinternetproxyinfo;
  len: longword;
begin
  Edit5.Text:='';
  len := 4096;
  getmem(proxyinfo, len);
  try
    if internetqueryoption(nil, internet_option_proxy, proxyinfo, len) then
    if proxyinfo^.dwaccesstype = internet_open_type_proxy then
      begin
        Edit5.Text := StrPas(proxyinfo^.lpszproxy);
      end
  finally
    freemem(proxyinfo);
  end;
end;

правда, это на Д7.

А в Edit выводит в виде 168.0.0.9:80?
М-да, значит в 2009 что-то они намудрили, т.к. у меня с этим кодом выводит 〮㘮㠺㘮㠺0〮㘮〮㘮㠺0〮㘮