[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    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.

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]