如何用Shell实现程序组快捷方式的添加
作者 bood  E-mail地址 boodweb@263.net
关键词：Shell函数 COM

（一）前言
    曾经在《电脑编程与维护》看到过一篇用DDE实现在程序组添加项目的方法，但是MSDN上明确指出应该用更加先进的Shell函数来实现，因此笔者在MSDN上仔细查找，终于在一篇名为“SHORTCUT: A SampleThat Manipulates Shortcuts”的文章中发现了这种方法。由于笔者初学COM不久，若有不当之处，请一定指出，感激不尽！

（二）预备知识
    Windows的程序组中的内容，实际上就是一个特定目录下的一些文件夹和文件（一般在c:\Windows\Start Menu\Programs目录下，我们可以用Shell函数SHGetSpecialFolderPath以CSIDL_PROGRAMS参数获得程序组的存放目录），Windows根据这些内容动态创建开始菜单和其下的子菜单。其中的文件夹代表一个弹出菜单，而文件则是快捷方式（.lnk文件），因此要在程序组建立快捷方式，实际上就是要在这个特定目录下新建一些.lnk文件，所幸Windows为我们提供了这样的接口。（当然，你要自己研究.lnk的文件结构然后自己一个字节一个字节的填，我也不反对）这些接口函数就是所谓的Shell函数的一部分。
    Shell函数实际上就是一些Windows内置COM对象接口的函数，因此要使用他们，就应当知道一些有关COM的细节，您可以看看潘爱民的《COM原理与应用》。而我们要用的接口是IShellLink（用来设置要建立的快捷方式的一些信息）以及IPersistFile（用来以文件形式保存快捷方式）接口（均属于ShellLink对象），首先我们可以用CoCreateInstance库函数创建一个名为ShellLink的COM对象，同时得到其中一个接口指针，再用QueryInterface查询另外一个接口。详细实现以及接口函数的使用请看下面的代码。

（三）代码
    这是我的实现，注意由于用了COM库函数，事先要调用CoInitialize()初始化，而在程序退出前要调用CoUninitialize()

//bAdd=1表示添加快捷方式，bAdd=0表示删除此快捷方式
//此例中快捷方式名称为“自动运行.lnk”，创建在启动组内
BOOL CTestDlg::SetAutoRun(BOOL bAdd)
{
    HRESULT hres;
    IShellLink *psl;//IShellLink接口指针
    BOOL bRet=FALSE;
    char pszDesPath[MAX_PATH];//创建的目标路径
    char pszShortcutFile[MAX_PATH];//创建的源文件

    ::GetModuleFileName(NULL,pszShortcutFile,MAX_PATH);//得到本程序路径
    SHGetSpecialFolderPath(m_hWnd,pszDesPath,CSIDL_PROGRAMS,0);//程序组路径
    strcat(pszDesPath,"\\启动\\自动运行.lnk");//启动组
    if(!bAdd)
        return DeleteFile(pszDesPath);
   
    hres = CoCreateInstance (CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER,
        IID_IShellLink, (void **)&psl);//得到CLSID_ShellLink标识的COM对象的IShellLink接口
    if (!SUCCEEDED(hres)) goto error;
    IPersistFile *ppf;//IPersistFile接口指针
   
    //查询IPersistFile接口以进行快捷方式的存储操作
    hres = psl->QueryInterface (IID_IPersistFile, (void **)&ppf);
    if (!SUCCEEDED (hres)) goto error;
    WORD wsz [MAX_PATH]; //Unicode字符串的缓冲地址
                         //为适应COM标准一定要用Unicode

    //设置源文件地址
    hres = psl->SetPath (pszShortcutFile);
   
    if (! SUCCEEDED (hres)) goto error;
   
    //设置参数
    hres = psl->SetArguments("/ArgumentsHere");
    if (! SUCCEEDED (hres)) goto error;
   
    //设置快捷方式的描述
    hres = psl->SetDescription ("Shortcut to ScreenColor");
   
    if (! SUCCEEDED (hres)) goto error;
   
    //将ANSI字符串转换为Unicode字符串
    MultiByteToWideChar (CP_ACP, 0, pszDesPath, -1, wsz, MAX_PATH);
   
    //调用Save方法进行存储
    hres = ppf->Save (wsz, TRUE);
   
    if (! SUCCEEDED (hres))  goto error;
   
    bRet=TRUE;

error:
    //释放接口
    ppf->Release ();
    psl->Release ();

    return TRUE;
}

发表于 @ 2001年05月15日 21:57:00|评论(loading...)|编辑