«« Site Rescued »»

While the site is still going to move from its current host, a new site will now take its place. More Info.

The new site may have less content, but the core will now remain. And it will now play nicely with phones! Keep an eye on the DelphiDabbler Blog for news.

» Help

How to call Internet Explorer from Delphi

   

Now that Internet Explorer is a standard part of Windows NT 4.0 and future versions of Windows [95], you may find it useful to add a hot key to your program which will take the user to your home page. Here's a simple function which will do just that:

program IExplor;

uses
  Windows, OLEAuto;

procedure OpenInternetExplorer(sURL: string);
const
  csOLEObjName = 'InternetExplorer.Application';
var
  IE        : Variant;
  WinHandle : HWnd;
begin
  if VarIsEmpty(IE) then
  begin
    IE := CreateOleObject(csOLEObjName);
    IE.Visible := true;
    IE.Navigate(sURL);
  end
  else
  begin
    WinHandle := FindWIndow('IEFrame', nil);
    if(0 <> WinHandle) then
    begin
      IE.Navigate(sURL);
      SetForegroundWindow(WinHandle);
    end
    else
    begin
      // handle error ...
    end;
  end;
end;

begin
  OpenInternetExplorer('microsoft.com');
end.
Author: Unknown
Added: 2007-06-02
Last updated: 2007-06-02

« Return to contents »