CSDN博客

img boodweb

如何用Shell实现程序组快捷方式的添加

发表于2001/5/15 21:57:00  871人阅读

分类: Shell编程应用

如何用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;
}

0 0

相关博文

我的热门文章

img
取 消
img