Windows平台使用COM创建快捷方式

BOOL CreateLink (
LPSTR szPath,//快捷方式的目标应用程序名
LPSTR szLink)//快捷方式的数据文件名(*.lnk)
{
   HRESULT hres ;
   IShellLink * psl ;
   IPersistFile* ppf ;
   WORD wsz[ MAX_PATH] ;

   //创建一个IShellLink实例
   hres = CoCreateInstance( CLSID_ShellLink, NULL,   CLSCTX_INPROC_SERVER, IID_IShellLink, (void **)&psl);
   if( FAILED( hres))   return FALSE ;

   //设置目标应用程序
   psl -> SetPath( szPath) ;

   //设置快捷键(此处设为Shift+Ctrl+'R')
   psl -> SetHotkey( MAKEWORD( 'R',
   HOTKEYF_SHIFT |HOTKEYF_CONTROL)) ;

   //从IShellLink获取其IPersistFile接口
   //用于保存快捷方式的数据文件 (*.lnk)

   hres = psl -> QueryInterface( IID_IPersistFile,
   (void**)&ppf) ;
   if( FAILED( hres))    return FALSE ;

   // 确保数据文件名为ANSI格式
   MultiByteToWideChar( CP_ACP, 0, szLink, -1,
   wsz, MAX_PATH) ;

   //调用IPersist:Save
   //保存快捷方式的数据文件 (*.lnk)
   hres = ppf -> Save( wsz, STGM_READWRITE) ;

   //释放IPersistFile和IShellLink接口
   ppf -> Release( ) ;
   psl -> Release( ) ;
   return TRUE;
}