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