OLE with the internet explorer

uses comobj; 



procedure OpenIE(aURL: string); 

var 

  IE        : Variant; 

  WinHanlde : HWnd;  

begin  

  if( VarIsEmpty(IE) )then 

  begin  

   IE:=CreateOleObject('InternetExplorer.Application');

   IE.Visible := true;  

   IE.Navigate(aURL); 

  end  

  else  

  begin  

    WinHanlde := FindWIndow('IEFrame', nil); 

    if (0 <> WinHanlde) then 

    begin  

      IE.Navigate(aURL);  

      SetForegroundWindow(WinHanlde);  

    end  

    else 

      ShowMessage('Can''t open IE !'); 

  end; 

end;  





procedure TForm1.Button1Click(Sender: TObject); 

begin 

  OpenIE('http://www.infojet.cz/delphi/tips/'); 

end;