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

#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