{
***函数名   : OpenURL
***函数说明 : 使用默认浏览器打开网页
***参数     :
                  sURL: URL地址
***返回值   : 布尔值(成功则返回True,否则返回False)
}
function OpenURL(sURL: PChar): Boolean;
var
    Browser: string;
begin
    try
        //获取默认浏览器键值
        with TRegistry.Create do
        try
            RootKey := HKEY_CLASSES_ROOT;
            if KeyExists('http\shell\open\command') then
            begin
                OpenKey('http\shell\open\command', False);
                Browser := ReadString('');
                CloseKey;
            end;
        finally
            Free;
        end;
        if Browser = '' then
            Result := False
        else
        begin
            Browser := LowerCase(Browser);  //转为小写
            Browser := Copy(Browser, 1, Pos('.exe', Browser)+3); //默认浏览器程序路径
            Browser := StringReplace(Browser, '"', '', [rfReplaceAll]); //替换路径双引号
            ShellExecute(0, 'open', PChar(Browser), sURL, nil, SW_SHOW);  //打开URL
            Result := True;
        end;
    except
        Result := False;
    end;
end;