win7如何把一个程序锁定到任务栏

#include "stdafx.h"

#include "PinAppToTaskbar.h"

#include <Shlwapi.h>

#include <atlpath.h>

#include <shobjidl.h>

 

#define RETURN_IF_NULL_EX(ret, pPointer) { \

    if (!(pPointer)) \

    { \

    return ret; \

    } \

}

 

#define RETURN_IF_FALSE_EX(ret, val) { \

    if (!(val)) \

    { \

    return ret; \

    } \

}

 

 

//1. 得到IShellDispatch

//2. 得到Folder

//3. 得到FolderItem

//4. 得到Verb

//5. 执行verb

 

long PinAppToTaskbar(const CString& csFullName)

{

    if (!PathFileExists(csFullName))

    {

        return ERROR_FILE_NOT_FOUND;

    }

 

    //加载字符串，形如"锁定到任务栏(K)"

    //如果找不到，则可能系统版本低于win7

    HINSTANCE hInst = ::LoadLibrary(_T("Shell32.dll"));

    CString csVerb;

    ::LoadString(hInst, 5386,csVerb.GetBuffer(256), 256);

    ::FreeLibrary(hInst);

    csVerb.ReleaseBuffer();

 

    if (csVerb.IsEmpty())

    {

        //只有在win7及以上才支持

        return CO_E_WRONGOSFORAPP;

    }

 

    CLSID clsid;

    ::CLSIDFromProgID(_T("Shell.Application"), &clsid);

    CComQIPtr<IShellDispatch>pShell;

 

    HRESULT hr = ::CoCreateInstance(CLSID_Shell,NULL, CLSCTX_INPROC_SERVER,IID_IShellDispatch, (void**)&pShell);

    ASSERT(SUCCEEDED(hr));

    RETURN_IF_FALSE_EX(hr,SUCCEEDED(hr));

 

    CString csName = PathFindFileName(csFullName);

    CPath path(csFullName);

    path.RemoveFileSpec();

    CString csPath = path;

 

    CComVariant varPath(csPath);

    CComQIPtr<Folder>pFolder;

 

    //NameSpace方法

    //Creates and returns a Folder object for the specified folder.

    pShell->NameSpace(varPath, &pFolder);

    ASSERT(pFolder);

    RETURN_IF_NULL_EX(E_NOINTERFACE,pFolder);

 

    CComBSTR bstrName(csName);

    CComQIPtr<FolderItem>pFolderItem;

    //ParseName方法 Creates and returns a FolderItem object that represents a specified item.

    pFolder->ParseName(bstrName, &pFolderItem);

    ASSERT(pFolderItem);

    RETURN_IF_NULL_EX(E_NOINTERFACE,pFolderItem);

 

    CComQIPtr<FolderItemVerbs>pVerbs;

    pFolderItem->Verbs(&pVerbs);

    ASSERT(pVerbs);

    long lCount = 0;

    pVerbs->get_Count(&lCount);

    for (longi = 0; i < lCount; ++i)

    {

        CComQIPtr<FolderItemVerb>pOneVerb;

        pVerbs->Item(CComVariant(i), &pOneVerb);

        CComBSTR bstrVerbName;

        pOneVerb->get_Name(&bstrVerbName);

        if (CString(bstrVerbName).Compare(csVerb) == 0)

        {

            pOneVerb->DoIt();

            return S_OK;

        }

    }

    return E_FAIL;

}