[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]