На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: Rouse_, jack128, Krid
  
    > Как вытащить настройки интернет эксплоиэра , нужно узнать адрес проки сервера
      ExpandedWrap disabled
        uses
          WinInet;
         
        function GetProxyInformation: string;
        var
          ProxyInfo: PInternetProxyInfo;
          Len: LongWord;
        begin
          Result := '';
          Len := 4096;
          GetMem(ProxyInfo, Len);
          try
            if InternetQueryOption(nil, INTERNET_OPTION_PROXY, ProxyInfo, Len) then
              if ProxyInfo^.dwAccessType = INTERNET_OPEN_TYPE_PROXY then
              begin
                Result := ProxyInfo^.lpszProxy
              end;
          finally
            FreeMem(ProxyInfo);
          end;
        end;
         
        {**************************************************************************
        * NAME:    GetProxyServer
        * DESC:    Proxy-Server Einstellungen abfragen
        * PARAMS:  protocol => z.B. 'http' oder 'ftp'
        * RESULT:  [-]
        * CREATED: 08-04-2004/shmia
        *************************************************************************}
        procedure GetProxyServer(protocol: string; var ProxyServer: string;
          var ProxyPort: Integer);
        var
          i: Integer;
          proxyinfo, ps: string;
        begin
          ProxyServer := '';
          ProxyPort := 0;
         
          proxyinfo := GetProxyInformation;
          if proxyinfo = '' then
            Exit;
         
          protocol := protocol + '=';
         
          i := Pos(protocol, proxyinfo);
          if i > 0 then
          begin
            Delete(proxyinfo, 1, i + Length(protocol));
            i := Pos(';', ProxyServer);
            if i > 0 then
              proxyinfo := Copy(proxyinfo, 1, i - 1);
          end;
         
          i := Pos(':', proxyinfo);
          if i > 0 then
          begin
            ProxyPort := StrToIntDef(Copy(proxyinfo, i + 1, Length(proxyinfo) - i), 0);
            ProxyServer := Copy(proxyinfo, 1, i - 1)
          end
        end;
         
        procedure TForm1.Button1Click(Sender: TObject);
        var
          ProxyServer: string;
          ProxyPort: Integer;
        begin
          GetProxyServer('http', ProxyServer, ProxyPort);
          Label1.Caption := ProxyServer;
          label2.Caption := IntToStr(ProxyPort);
        end;


      http://swissdelphicenter.ch/en/showcode.php?id=2110
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0157 ]   [ 16 queries used ]   [ Generated: 28.03.24, 14:41 GMT ]