Monday, May 28, 2012

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;

procedure OpenIE;
begin
  OpenInternetExplorer('microsoft.com');
end.

0 comments:

Post a Comment

 
Related Posts Plugin for WordPress, Blogger...