vc 创建桌面快捷方式

BOOL CDlg::CreateDesktopShotCut(CString strName, CString strSourcePath)
{
if (FAILED(CoInitialize(NULL)))
return FALSE;
BOOL bRet = FALSE;

TCHAR Path[MAX_PATH+1];
CString strDestDir;
LPITEMIDLIST pidl;
LPMALLOC pShell;
if(SUCCEEDED(SHGetMalloc(&pShell)))
{
if(SUCCEEDED(SHGetSpecialFolderLocation(NULL,CSIDL_DESKTOPDIRECTORY,&pidl)))
{
if(!SHGetPathFromIDList(pidl,Path))
{
pShell->Free(pidl);
}
pShell->Release();
strDestDir.Format(_T("%s"),Path);
strDestDir+= _T("\\");
strDestDir+= strName;//设置桌面快捷方式的名字
strDestDir+= _T(".lnk");
IShellLink* psl;

if(SUCCEEDED(CoCreateInstance(CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER, IID_IShellLink, (LPVOID*)&psl)))
{
psl->SetPath(strSourcePath + _T("Player.exe"));//设置快捷方式的目标位置
//比如目标位置为C:\windows\a.txt 起始位置就应该设置为C:\windows否则会导致不可预料的错误

//如果是文件夹的快捷方式起始位置和目标位置可以设置为一样

psl->SetWorkingDirectory(strSourcePath); //设置快捷方式的起始位置
IPersistFile* ppf;
if(SUCCEEDED(psl->QueryInterface(IID_IPersistFile,(LPVOID*)&ppf)))
{
//WCHAR wsz[MAX_PATH];
//MultiByteToWideChar(CP_THREAD_ACP,MB_PRECOMPOSED, (LPCTSTR)strDestDir,-1,wsz,MAX_PATH);//设置桌面快捷方式的名字
if(SUCCEEDED(ppf->Save(strDestDir,TRUE)))//保存快捷方式到桌面
{
ppf->Release();
psl->Release();
bRet = TRUE;
}else{
ppf->Release();
psl->Release();
}
}else{
ppf->Release();
psl->Release();
}
}
}
}

CoUninitialize();

if (!bRet)
{
LPVOID   lpMsgBuf;
FormatMessage(
FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,
NULL,
GetLastError(),
MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language
(LPTSTR) &lpMsgBuf,
0,
NULL
);
//   Display   the   string.
TRACE(_T("----------------Create Link Error: %s\r\n"), (TCHAR*)lpMsgBuf);
_ComnLog->LogOutV(_T("----------------CreateDesktopShotCut Failed: %s\r\n"), (TCHAR*)lpMsgBuf);
//   Free   the   buffer.
LocalFree(   lpMsgBuf   );
}
return bRet;
}