如何在快速啟動欄創建快捷方式

2019-11-17 05:32:26

字體：大中小

來源：轉載

供稿：網友

　　#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)
            + "http://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

上一篇：如何在Win9x/2k下建立共享目錄

下一篇：如何提高數據庫的訪問速度

學習交流

索泰發布一款GTX 1070 Mini迷你版本:小機

索泰發布一款GTX 1070 Mini迷你版本:小機箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關注