Mega Code Archive
Call internet explorer
<![CDATA[
Now that Internet Explorer is a standard part of Windows NT 4.0 and probably of 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.
Use it like this: OpenInternetExplorer('preview.org');
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 WinHandle <> 0 then
begin
IE.Navigate(sURL);
SetForegroundWindow(WinHandle);
end
else
begin
// handle error ...
end;
end;
end;
]]>