How to open a Web site with the default Web browser in a NEW window

Http://delphi.about.com/cs/adptips2004/a/bltip0504_4.htm

When using ShellExecute (as explained on the above article) to open a Web site or an HTM file with the default Web browser You *don ' t* has the option to specify so want to start a new instance of the Browser-in general an existing Windo W is used.

To make sure a new window was created we need to call the ShellExecute function a little differently-by specifying the UR L as a parameter to a call to your default browser (an application associated with the HTM and HTML, etc extension).

usesRegistry, Shellapi;functionBrowseurl (ConstUrl:string): boolean;varBrowser:string;beginResult:=True; Browser:="';  withTregistry.create Do   TryRootkey:=HKEY_CLASSES_ROOT; Access:=Key_query_value; ifOpenkey ('\htmlfile\shell\open\command', False) ThenBrowser:= ReadString ("') ;   Closekey; finallyFree ; End; ifBrowser ="'  Then   beginResult:=False;   Exit; End; Browser:= Copy (Browser, Pos ('"', Browser) +1, Length (Browser)); Browser:= Copy (Browser,1, Pos ('"', Browser)-1) ; ShellExecute (0,'Open', PChar (Browser), PChar (URL),Nil, sw_show);End;//Usagebrowseurl ('http://www.cnblogs.com') ;

How to open a Web site with the default Web browser in a NEW window