使用COM组件创建快捷方式的实现

从网上搜罗得到一个创建快捷方式的解决方案,对其进行整理并写成可独立使用的函数:

// Create shortcut
// @param lpszSource LPCTSTR Source file name or file path
// @param lpszShortcut LPCTSTR Shortcut name, e.g. Notepad.lnk
BOOL CreateShortcut(LPCTSTR lpszSource, LPCTSTR lpszShortcut)
{
 HRESULT hr;
 IShellLink* psl = NULL;
 IPersistFile* ppf = NULL;
 WORD wsz[MAX_PATH];
 BOOL bInitCom = FALSE;
 BOOL bRet = FALSE;

 do {
  hr = CoCreateInstance(CLSID_ShellLink, NULL ,CLSCTX_INPROC_SERVER, IID_IShellLink, (void**)&psl);
  if (!bInitCom && FAILED(hr))
  {
   bInitCom = TRUE;
   hr = CoInitialize(NULL);
  }
  else
  {
   break;
  }
 } while(SUCCEEDED(hr));
 
 if(SUCCEEDED(hr))
 {
  psl->SetPath(lpszSource);
  hr = psl->QueryInterface(IID_IPersistFile, (void**)&ppf);
  if(SUCCEEDED(hr))
  {
   MultiByteToWideChar(CP_ACP, 0, lpszShortcut, -1, wsz, MAX_PATH);
   bRet = SUCCEEDED(ppf->Save(wsz, STGM_READWRITE));

   ppf->Release();
  }
  psl->Release();
 }
 
 if (bInitCom)
 {
  CoUninitialize();
 }

 return bRet;
}

Tags:

Leave a Reply


提醒: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。请务必注意user必须和评论者名相匹配(大小写一致)。