创建快捷方式

BOOL CFileTool::CreateShortcuts(const CString *pFile,
                                const CString *pPath, 
                                const CString *pIconLocation, 
                                const CString *pArguments, 
                                const CString *pWorkingDirectory,
                                WORD pHotkey, 
                                int pShowCmd, 
                                const PCIDLIST_ABSOLUTE pIDList, 
                                const CString *pRelativePat, 
                                const CString *pDescription)
{
    // 入口参数检查
    if (NULL == pFile || NULL == pPath)
    {
        return FALSE;
    }

    HRESULT hRet;
    //初始化COM库
    hRet = ::CoInitialize(NULL);
    if (hRet != S_OK)  //初始化COM库失败，直接返回
    {
        return FALSE;
    }

    IShellLink *psl = NULL;        //IShellLink对象指针
    IPersistFile *ppf = NULL;    //IPersisFil对象指针

    //创建IShellLink实例
    hRet = ::CoCreateInstance(CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER, 
        IID_IShellLink, (void**)&psl);
    if (hRet != S_OK)  //初始化COM库失败，直接返回
    {
        //释放COM接口
        ::CoUninitialize();
        return FALSE;
    }

    //从IShellLink对象中获取IPersistFile接口
    hRet = psl->QueryInterface(IID_IPersistFile, (void**)&ppf);
    if (hRet != S_OK)  //初始化COM库失败，直接返回
    {
        //释放IShellLink对象
        psl->Release();
        //释放COM接口
        ::CoUninitialize();
        return FALSE;
    }

    //1.设置快捷方式中的程序路径
    psl->SetPath(*pPath);

    //2.设置图标
    if (pIconLocation != NULL && pIconLocation[0] != L'')
    {
        psl->SetIconLocation(*pIconLocation, 0);
    }

    //3.设置快捷方式的工作目录
    if (pWorkingDirectory != NULL && pWorkingDirectory[0] != L'')
    {
        psl->SetWorkingDirectory(*pWorkingDirectory);
    }

    //4.快捷键
    if (pHotkey > 0)
    {
        psl->SetHotkey(pHotkey);
    }

    //5.快捷方式的运行方式，比如常规窗口，最大化
    if (pShowCmd >= 0)
    {
        psl->SetShowCmd(pShowCmd);
    }

    //6.获得快捷方式的目标对象的item identifier list (Windows外壳中的每个对象如文件，目录和打印机等都有唯一的item identifiler list)
    if (pIDList != NULL)
    {
        psl->SetIDList(pIDList);
    }

    //7.按照一定的搜索规则试图获得目标对象，即使目标对象已经被删除或移动，重命名
    if (pRelativePat != NULL && pRelativePat[0] != L'')
    {
        psl->SetRelativePath(*pRelativePat, 0);
    }

    //8.参数信息
    if (pArguments != NULL && pArguments[0] != L'')
    {
        psl->SetArguments(*pArguments);
    }

    //9.描述信息（备注行）
    if (pDescription != NULL && pDescription[0] != L'')
    {
        psl->SetDescription(*pDescription);
    }

    //确保快捷方式路径由ANSI字符串组成
    //！！这个文件名改变了，就需要删除原有快捷方式，没改，就直接创建，不用删除原有的。
    //CString wsz = L"C:\Documents and Settings\Gongjian\桌面\vc创建的快捷方式.lnk";

    //保存快捷方式
    ppf->Save(*pFile, TRUE);


    //释放IPersistFile接口
    ppf->Release();
    //释放IShellLink对象
    psl->Release();
    //释放COM接口
    ::CoUninitialize();

    return TRUE;
}