如何在快速启动栏创建快捷方式

核心提示：#define NO_WIN32_LEAN_AND_MEAN#include <shlobj.hpp>#include <vcl.h>// 以上三行放在单元文件最开始//---strUCt TShortcutCfg{// 构造函数TShortcutCfg(){nShowCmd = SW_SHOW

　　#define NO_WIN32_LEAN_AND_MEAN
#include <shlobj.hpp>
#include <vcl.h>
// 以上三行放在单元文件最开始
//---------------------------------------------------------------------------
strUCt TShortcutCfg
{
　　// 构造函数
　　TShortcutCfg()
　　{
　　　　nShowCmd = SW_SHOWNORMAL;
　　　　wHotKey = 0;
　　　　nIconIndex = 0;
　　}
　　// 结构成员:
　　AnsiString　strShortcutName; //
　　AnsiString　strLnkDir;　　　 //
　　AnsiString　strDestFile;　　 //
　　AnsiString　strArguments;　　//
　　AnsiString　strIconFile;　　 //
　　int　　　　 nIconIndex;　　　//
　　AnsiString　strWorkingDir;　 //
　　AnsiString　strDescription;　//
　　Word　　　　wHotKey;　　　　 //
　　int　　　　 nShowCmd;　　　　//
};
//---------------------------------------------------------------------------
// 在快速启动栏创建快捷方式
bool CreateQuickLaunchShortcut(TShortcutCfg *scConfig)
{
　　char szBuf[MAX_PATH];
　　bool bReturn = true;
　　wchar_t wszBuf[MAX_PATH];
　　IShellLink *pShellLink;
　　AnsiString strShortcutFile;

　　LP99vEMIDLIST lpItemIdList;
　　SHGetSpecialFolderLocation(0, CSIDL_APPDATA, &lpItemIdList);
　　SHGetPathFromIDList(lpItemIdList, szBuf);
　　if(DirectoryExists(AnsiString(szBuf)))

　　{
　　　　strShortcutFile = AnsiString(szBuf)
　　　　　  + "\\Microsoft\\Internet EXPlorer\\Quick Launch\\"
　　　　　  + scConfig->strShortcutName + ".lnk";
　　　　strShortcutFile.WideChar(wszBuf, MAX_PATH);
　　}
　　else
　　　　bReturn = false;

　　if(bReturn)
　　{
　　　　bReturn = CoCreateInstance (CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER,
　　　　　　　　IID_IShellLink, (void **)&pShellLink) >= 0;

　　　　if(bReturn)
　　　　{
　　　　　　IPersistFile *ppf;
　　　　　　bReturn = pShellLink->QueryInterface(IID_IPersistFile, (void **)&ppf) >= 0;
　　　　　　if(bReturn)
　　　　　　{
　　　　　　　　// 目标文件
　　　　　　　　if(scConfig->strDestFile != EmptyStr)
　　　　　　　　bReturn = pShellLink->SetPath(scConfig->strDestFile.c_str()) >= 0;
　　　　　　　　// 参数
　　　　　　　　if(bReturn && scConfig->strArguments != EmptyStr)
　　　　　　　　bReturn = pShellLink->SetArguments(scConfig->strArguments.c_str()) >= 0;
　　　　　　　　// 显示图标
　　　　　　　　if(bReturn && scConfig->strIconFile !=

　　　　　　　　　　　  EmptyStr && FileExists(scConfig->strIconFile))
　　　　　　　　　　pShellLink->SetIconLocation(scConfig->strIconFile.c_str(),
　　　　　　　　　　　　　　scConfig->nIconIndex);
　　　　　　　　// 起始位置
　　　　　　　　if(bReturn && scConfig->strWorkingDir != EmptyStr)
　　　　　　　　　　pShe