Открыть ссылку в Internet Explorer

[demiancz]

Здравствуйте. Такой вот вопрос. Есть адрес типа хттп://сайт.ком . Необходимо что бы этот адрес при нажатии на кнопку открывался с помощью браузера Internet Explorer.
Используя ShellExecute ссылка открывается тем браузером, который стоит по умолчанию. Мне же нужно что бы ссылка открывалась только в Internet Explorer и ни каким другим браузером.
Помогите пожалуйста!

[Wernher]

program iexplor;

uses
  Windows, OLEAuto;

procedure OpenInternetExplorer( 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
    begin
      // handle error ...
    end;
  end;
end;

begin
  OpenInternetExplorer('microsoft.com');

end.

Источник

[GunSmoker]

Боже, что это за ужас?

http://www.transl-gunsmoker.ru/2009/...-explorer.html

ну или через InternetExplorer.Application - ничего не имею против, но НЕ ТАК, как написано в этом коде.