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;
}