Какой браузер по умолчанию, User-Agent.

← →
Tcount © (2012-11-24 22:07) [0]

Вечер добрый. Подскажите, пожалуйста, как можно определить, какой установлен браузер в системе по умолчанию? Вроде как через реестр можно, ток не знаю как.
А если уж точнее, то мне нужно узнать User-Agent браузера или его версию.

← →
Tcount © (2012-11-24 22:31) [1]

Попробовал через TIdHTTP:
STR:=TidHTTP1.Get("http://onlinebots.net/useragent.php");
---------
Но! когда перехожу по этому адресу непосредственно через браузер, выдает:
Mozilla/5.0 (Windows NT 6.1; rv:17.0) Gecko/17.0 Firefox/17.0
А через через Delphi:
Mozilla/3.0 (compatible; Indy Library)
-----------
Почему так?

← →
Tcount © (2012-11-24 23:37) [2]

Тупанул я...Сам же отправляю запрос со своим агентом и его же и получаю)
Неужели можно вытащить это все дело через TWebBrowser?

← →
Tcount © (2012-11-24 23:38) [3]

В смысле, неужели только через TWebBrowser?

← →
Styx (2012-11-25 00:16) [4]

Через TWebBrowser тоже нельзя. :)

← →
Tcount © (2012-11-25 00:22) [5]

> Через TWebBrowser тоже нельзя. :)

Ну я скрыл WebBrowser, потом написал так (WB - это WebBrowser):
---------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
Doc: IHTMLDocument2;
S:string;
begin
WB.Navigate("http://onlinebots.net/useragent.php");
while WB.ReadyState<READYSTATE_COMPLETE do
begin
Application.ProcessMessages;
end;
Doc:=WB.Document as IHTMLDocument2;
s:=doc.body.innerHTML;
Memo1.Text:=s;
end;
----------------------

← →
QAZ9 (2012-11-25 14:03) [6]

> Ну я скрыл WebBrowser, потом написал так (WB - это WebBrowser):

facepalm

← →
Styx (2012-11-25 21:55) [8]

> Tcount © (25.11.12 00:22) [5]
> Ну я скрыл WebBrowser, потом написал так

Это будет UserAgent Internet Explorer-а, а не браузера по умолчанию. Но, главное -

> DVM © (25.11.12 15:06) [7]
> зачем тебе все эти пляски? Объясни.

Какой браузер по умолчанию, User-Agent. Найти похожие ветки