zoukankan      html  css  js  c++  java
  • 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 in the above article) to open a web site or a htm file with the default web browser you *don't* have the option to specify that you want to start a new instance of the browser - in general an existing window is used.

    To make sure a new window is created we need to call the ShellExecute function a little differently - by specifying the URL as a parameter to a call to your default browser (an application associated with the htm and html, etc extension).

    uses
       Registry, ShellAPI;
    
    function BrowseURL(const URL: string) : boolean;
    var
       Browser: string;
    begin
       Result := True;
       Browser := '';
       with TRegistry.Create do
       try
         RootKey := HKEY_CLASSES_ROOT;
         Access := KEY_QUERY_VALUE;
         if OpenKey('htmlfileshellopencommand', False) then
           Browser := ReadString('') ;
         CloseKey;
       finally
         Free;
       end;
       if Browser = '' then
       begin
         Result := 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;
    
    //Usage
    BrowseURL('http://www.cnblogs.com') ;
  • 相关阅读:
    Javascript异步编程的4种方法(阮一峰)
    vue 要点
    npm指南
    http请求状态及其含义表
    IOS 7层协议
    js模块化
    UITouch触摸事件
    UIGestureRecognizer手势识别
    UISegmentControl 、UIStepper
    UINavigationController
  • 原文地址:https://www.cnblogs.com/shangdawei/p/4053792.html
Copyright © 2011-2022 走看看