Windows with Delphi Windows API (94) Windows Filesystem (41) Windows Forms (69) Windows Graphics (38)
Exchange Links About this site Links to us 
New related comments Number of comments in the last 48 hoursPlay WAV files 1 new comments
|
Call Internet Explorer
This article has not been rated yet. After reading, feel free to leave comments and rate it.
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
end;
end;
end; | |  | |  |
Comments:
|