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

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)
            + "//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迷你版本:小机箱大爱...

热门图片

猜你喜欢的新闻

猜你喜欢的关注