#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;
LPITEMIDLIST 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)
pShellLink->SetWorkingDirectory(scConfig->strWorkingDir.c_str());
// 備注
if(bReturn && scConfig->strDescription != EmptyStr)
pShellLink->SetDescription(scConfig->strDescription.c_str());
// 快捷鍵
if(bReturn && scConfig->wHotKey != 0)
pShellLink->SetHotkey(scConfig->wHotKey);
// 運行方式
if(bReturn && scConfig->nShowCmd != 0)
pShellLink->SetShowCmd(scConfig->nShowCmd);
if(bReturn)
bReturn = (ppf->Save(wszBuf, TRUE) >= 0);
ppf->Release ();
}
pShellLink->Release ();
}
}
return bReturn;
}
// 調用代碼舉例：
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TShortcutCfg scShortcut;
scShortcut.strDestFile = "C:\\123\\123.exe";
scShortcut.strShortcutName = "test";
if(CreateQuickLaunchShortcut(&scShortcut))
ShowMessage("在快速啟動欄創建快捷方式成功!");
}
