Открытие элементов ListBox через браузер

[KiDoki]

У меня есть ЛистБокс, элементы в виде ссылок.
Как сделать так, чтобы при нажатии на один из элементов открывался бы браузер с данной ссылкой?
Заранее благодарю.

[mihali4]

Передайте вашу выбранную строку в такую процедуру:

procedure TFVMZWebDB.OpenIE( sURL : string );
const
  csOLEObjName = 'InternetExplorer.Application';
var
  IE: Variant;
  WinHanlde: HWnd;
begin
  if VarIsEmpty(IE) then
  begin
    IE := CreateOleObject(csOLEObjName);
    IE.Visible := true;
    IE.Navigate(sURL);
  end
  else
  begin
    WinHanlde := FindWIndow('IEFrame', nil);
    if 0 <> WinHanlde then
    begin
      IE.Navigate(sURL);
      SetForegroundWindow(WinHanlde);
    end
    else
      ShowMes(12,332,'Error');
  end;
end;

Это для IExplorera.

[AVer]

ShellExecute(handle, 'open', ListBox1.Items.Strings[ListBox1.ItemIndex], nil, nil, SW_SHOW);

Ссылка откроется в браузере по умолчанию.

[KiDoki]

Огромное спасибо mihali4 и AVer!

[mihali4]

To Aver
Можно, конечно, и так, но на каждую ссылку будет открываться новый экземпляр браузера, а в моем варианте, хоть он и только для осла, все ссылки будут открываться в одном и том же окне...

[KiDoki]

2 mihali4
Кстати, а как заменить в вашем коде ИЕ на лису?

[mihali4]

Честно скажу - никогда с фоксом не работал, поэтому не знаю, как к нему по-олешному обратиться. Подозреваю, что это можно найти в реестре. Ведь 'InternetExplorer.Application' в реестре прописан.

[KiDoki]

Спасибо =)