急！比如d:\a.lnk，我想对这个快捷方式设置快捷键，请问用代码怎么实现？

[CACACAW]

谢谢

[zhucde]

to palmax(南宫煌) :

看看我们两个发帖的时间,差不多是同时发出的,
所以还没看到你的回帖

[final]

HRESULT CreateShortCut(LPCTSTR pszURL, LPCTSTR pszURLfilename,
LPCTSTR szDescription,
LPCTSTR szIconFile, int nIndex)
{
HRESULT hres;

CoInitialize(NULL);

IUniformResourceLocator *pHook;

hres = CoCreateInstance (CLSID_InternetShortcut, NULL, CLSCTX_INPROC_SERVER,
IID_IUniformResourceLocator, (void **)&pHook);

if (SUCCEEDED (hres))
{
IPersistFile *ppf;
IShellLink *psl;

hres = pHook->QueryInterface (IID_IPersistFile, (void **)&ppf);
hres = pHook->QueryInterface (IID_IShellLink, (void **)&psl);

if (SUCCEEDED (hres))
{
pHook->SetURL(pszURL,0);

hres = psl->SetIconLocation(szIconFile,nIndex);

if (SUCCEEDED (hres))
{

hres = psl->SetDescription (szDescription);

if (SUCCEEDED (hres))
{
#ifndef _UNICODE
WORD wsz [MAX_PATH];
MultiByteToWideChar (CP_ACP, 0, pszURLfilename, -1, wsz, MAX_PATH);

hres = ppf->Save (wsz, TRUE);
#else
hres = ppf->Save (pszURLfilename, TRUE);
#endif
}

}

ppf->Release ();
psl->Release ();
}

pHook->Release ();
}
::CoUninitialize();
return hres;
}

[CACACAW]

老大，请看清题目，我想对快捷方式（a.lnk）设置快捷键，不是要设置一个快捷方式。

[palmax]

HRESULT hres;
IShellLink *psl;//IShellLink接口指针
BOOL bRet=FALSE;
char pszDesPath[MAX_PATH];//创建的目标路径
char pszShortcutFile[MAX_PATH];//创建的源文件

strcpy(pszShortcutFile,srcapp);
strcpy(pszDesPath,desfile);

hres = CoCreateInstance (CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER,
IID_IShellLink, (void **)&psl);//得到CLSID_ShellLink标识的COM对象的IShellLink接口
if (!SUCCEEDED(hres)) goto error;
IPersistFile *ppf;//IPersistFile接口指针

//查询IPersistFile接口以进行快捷方式的存储操作
hres = psl->QueryInterface (IID_IPersistFile, (void **)&ppf);
if (!SUCCEEDED (hres)) goto error;
WORD wsz [MAX_PATH]; //Unicode字符串的缓冲地址
//为适应COM标准一定要用Unicode

//设置源文件地址
hres = psl->SetPath (pszShortcutFile);

if (! SUCCEEDED (hres)) goto error;

//设置参数
hres = psl->SetArguments(callway);
if (! SUCCEEDED (hres)) goto error;

//设置快捷方式的描述
hres = psl->SetDescription (这里输入对快捷方式的描述);

//设置快捷方式的快捷键
hres = psl->SetHotkey (这里输入快捷方式的快捷键);
//设置运行方式
hres = psl->SetShowCmd(SW_SHOWMINIMIZED);
if (! SUCCEEDED (hres)) goto error;

//将ANSI字符串转换为Unicode字符串
MultiByteToWideChar (CP_ACP, 0, pszDesPath, -1, wsz, MAX_PATH);

//调用Save方法进行存储
hres = ppf->Save (wsz, TRUE);

if (! SUCCEEDED (hres)) goto error;

bRet=TRUE;

error:
//释放接口
ppf->Release ();
psl->Release ();



最后记得在InitInstance 里 加上 CoInitialize(NULL);
以初始化com组件

[zhucde]

加上一句:

//设置快捷键(此处设为Shift+Ctrl+'R')
psl -> SetHotkey( MAKEWORD( 'R',
HOTKEYF_SHIFT |HOTKEYF_CONTROL)) ;

[zhucde]

加上一句:

//设置快捷键(此处设为Shift+Ctrl+'R')
psl -> SetHotkey( MAKEWORD( 'R',
HOTKEYF_SHIFT |HOTKEYF_CONTROL)) ;

[palmax]

哦
差点忘了 函数声明 void CyourDlg::CreateShortcut(CString srcapp, CString desfile, CString callway)

还有记得 导入shlobj.lib 和#include "shlobj.h"

[palmax]

To: zhucde(【風間苍月.MSMVP】)
我的代码里已经说了 你没看仔细 :)