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.
|