Windows 10的跳转列表失败

我使用下面的代码让任务栏跳转列表在某些页面打开用户的默认浏览器。

在win7/8上，一切都正常运行了大约一年，但在win10上，当单击任务栏任务时，浏览器不会被调用，微软文档显示从win8到win10没有任何变化。

 bool SetUpJumpList( )
 {
    HRESULT hr;
    CComPtr<ICustomDestinationList> pDestList;
    hr = pDestList.CoCreateInstance ( CLSID_DestinationList , NULL , CLSCTX_INPROC_SERVER );
    if ( FAILED ( hr ) )
    {
            return false;
    }
    hr = pDestList->SetAppID ( _TBID );
    if ( FAILED ( hr ) )
    {
            return false;
    }
    UINT cMaxSlots;
    CComPtr<IObjectArray> pRemovedItems;
    hr = pDestList->BeginList ( &cMaxSlots , IID_PPV_ARGS ( &pRemovedItems ) );
    if ( FAILED ( hr ) )
    {
            return false;
    }
    CComPtr<IObjectCollection> pObjColl;
    hr = pObjColl.CoCreateInstance ( CLSID_EnumerableObjectCollection , NULL , CLSCTX_INPROC_SERVER );
    if ( FAILED ( hr ) )
    {
            return false;
    }
    if ( !AddJumpListTasks ( pObjColl ) )
    {
            return false;
    }
    CComQIPtr<IObjectArray> pTasksArray = pObjColl;
    if ( !pTasksArray )
    {
            return false;
    }
    hr = pDestList->AddUserTasks ( pTasksArray );
    if ( FAILED ( hr ) )
    {
            return false;
    }
    hr = pDestList->CommitList( );
    return SUCCEEDED ( hr );
 }
 bool AddJumpListTasks ( IObjectCollection* pObjColl )
 {
    wchar_t pBuf[ MAX_PATH ];
    int bytes = GetModuleFileName ( NULL , pBuf , MAX_PATH );
    CJumpListTask aTasks[ ] =
    {
            { _T ( "https://www.google.co.uk" ) , _T ( "Home Page" ) , _T ( "Home" ) , 0 },
            { _T ( "https://www.google.co.uk" ) , _T ( "Twitter Page" ) , _T ( "Twitter" ) , 9 },
            { _T ( "https://www.google.co.uk" ) , _T ( "Facebook Page" ) , _T ( "Facebook" ) , 10 }
    };
    CString strBrowser;
    DWORD size = 1024;
    AssocQueryString ( 0 , ASSOCSTR_EXECUTABLE , L"http" , L"Open" , strBrowser.GetBufferSetLength ( size ) , &size );
    for ( int i = 0; i < _countof ( aTasks ); i++ )
    {
            if ( !AddJumpListTask ( pObjColl , aTasks[ i ] , strBrowser , pBuf ) )
            {
                    strBrowser.ReleaseBuffer( );
                    return false;
            }
    }
    strBrowser.ReleaseBuffer( );
    return true;
 }
 bool AddJumpListTask ( IObjectCollection* pObjColl , const CJumpListTask& rTask , LPCTSTR szExePath , LPCTSTR pBuf )
 {
    HRESULT hr;
    CComPtr<IShellLink> pLink;
    hr = pLink.CoCreateInstance ( CLSID_ShellLink , NULL , CLSCTX_INPROC_SERVER );
    if ( FAILED ( hr ) )
    {
            return false;
    }
    hr = pLink->SetPath ( szExePath );
    if ( FAILED ( hr ) )
    {
            return false;
    }
    hr = pLink->SetArguments ( rTask.szArgs );
    if ( FAILED ( hr ) )
    {
            return false;
    }
    hr = pLink->SetIconLocation ( pBuf , rTask.nIconIndex );
    if ( FAILED ( hr ) )
    {
            return false;
    }
    CComQIPtr<IPropertyStore> pPropStore = pLink;
    PROPVARIANT pv;
    if ( !pPropStore )
    {
            return false;
    }
    hr = InitPropVariantFromString ( CT2CW ( rTask.szTitle ) , &pv );
    if ( FAILED ( hr ) )
    {
            return false;
    }
    hr = pPropStore->SetValue ( PKEY_Title , pv );
    PropVariantClear ( &pv );
    if ( FAILED ( hr ) )
    {
            return false;
    }
    hr = pPropStore->Commit( );
    if ( FAILED ( hr ) )
    {
            return false;
    }
    hr = pObjColl->AddObject ( pLink );
    return SUCCEEDED ( hr );
 }

我注意到其他几个应用程序，如CCleaner，也使用这种方法不起作用，但微软的应用程序，如Office 2013仍然工作，所以问题是我如何让它在Windows 10上再次运行?

我确定这与 CustomDestinations -ms文件存储在CustomDestinations文件夹中没有关系，因为与Windows 10的干净安装相同的非功能出现。

使用所需的文本和图标创建任务栏任务菜单，调试显示添加了正确的URL以及正确的默认浏览器和浏览器路径。

使用Visual Studio 2015与工具集Windows XP v140_xp