Браузер по умолчанию

[-=Virus=-]

В том то и дело я на html страницах проверял всёравно открывается в опере.

[-=Virus=-]

Спасибо всё дошло,пока не выпьешь 100гр,неразберёшься сразу.

[-=Virus=-]

хм почемуто когда кликаешь по ссылка браузер запускается но запускает домашнюю страницу а не ту ссылку каторую нажимал.

[Denager]

Потому что идет открытие .exe с передаваемым параметром в виде ссылки с сайтом

my_browser.exe http://ya.ru

Остается только сделать обработку данных параметров, а тут в помощь
ParamCount и ParamStr

[-=Virus=-]

Можно исходник или пример поглядеть как это делается?

[Denager]

В событиее формы onCreate

var
  i:integer;
begin
if ParamCount>0 then
  for i:=1 to ParamCount do
    memo1.Lines.add(ParamStr(i));

Если приложению передаются параметры при запуске к примеру

Путь_к_проекту_\project1.exe www.ya.ru www.mail.ru www.rambler.ru

то в memo отобразятся сайты, переданные в качестве параметров.
Соответсвенно вам остается обрабатывать эти параметры и открывать нужные страницы/вкладки в вашем браузере

[-=Virus=-]

хм..опробывал но не чего не заработало.

[-=Virus=-]

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

В событиее формы onCreate

var
  i:integer;
begin
if ParamCount>0 then
  for i:=1 to ParamCount do
    memo1.Lines.add(ParamStr(i));

Если приложению передаются параметры при запуске к примеру

Путь_к_проекту_\project1.exe www.ya.ru www.mail.ru www.rambler.ru

то в memo отобразятся сайты, переданные в качестве параметров.
Соответсвенно вам остается обрабатывать эти параметры и открывать нужные страницы/вкладки в вашем браузере

Какием образом забирать из memo в combobox и потом сразу заставить загружать браузер?Я думаю фильтр ненужен т.к лутче всего запускать все сайты и форумы в браузере,или чегото я не понял?

[-=Virus=-]

Вот мой код каторый отвечает за установку по умолчанию,браузер открывает по клику по ссылку,но не передаёт в twebbrowser2 адрес запускаемой ссылки.

unit Unit6;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, sButton, jpeg, ExtCtrls, Registry;

type
TForm6 = class(TForm)
Image1: TImage;
Label1: TLabel;
sButton1: TsButton;
sButton2: TsButton;
procedure sButton1Click(Sender: TObject);
procedure sButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.sButton1Click(Sender: TObject);
begin
close;
end;

procedure TForm6.sButton2Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CLASSES_ROOT;
if Reg.OpenKey('http\shell\open\comman d', False) then
begin
Reg.WriteString('','"'+Application. ExeName+'"');
Reg.CloseKey;
end;
finally
Reg.Free;
close;
end;
end;

end.

[Пепел Феникса]

ставить то ставите...
а обрабатываете ли параметры полученные?