我想创建一个程序的快捷方式，并放到启动组中，该怎么做，谁有源码？

[yjinf]

谢谢，如蹄！

[jinri]

是在 开始-菜单-程序-启动 里吗？

[yjinf]

是的

[dreamchild]

网上刚找的，你自己看看，我没试过
BOOL set1::CreateLink(LPSTR szPath,LPSTR szLink)
{
HRESULT hres ;
IShellLink* psl;
IPersistFile* ppf ;
WORD wsz[ MAX_PATH] ;//创建一个IShellLink实例
hres=CoCreateInstance(CLSID_ShellLink,NULL,CLSCTX_INPROC_SERVER,IID_IShellLink,(void **)&psl);
if(FAILED(hres))return FALSE;//设置目标应用程序
psl->SetPath(szPath);//设置快捷键(此处设为Shift+Ctrl+'R')
psl->SetWorkingDirectory(m_e1); //!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
psl->SetHotkey(MAKEWORD('R',HOTKEYF_SHIFT|HOTKEYF_CONTROL));
//用于保存快捷方式的数据文件 (*.lnk)//从IShellLink获取其IPersistFile接口
hres=psl->QueryInterface(IID_IPersistFile,(void**)&ppf);
if(FAILED(hres))return FALSE;// 确保数据文件名为ANSI格式
MultiByteToWideChar(CP_ACP,0,szLink,-1,wsz,MAX_PATH);
//保存快捷方式的数据文件 (*.lnk)//调用IPersistFile::Save
hres=ppf->Save(wsz,STGM_READWRITE);//释放IPersistFile和IShellLink接口
ppf->Release();
psl->Release();
return TRUE;
}

[whoishere]

// 首先取得启动组的目录
char szPath[MAX_PATH];
ITEMIDLIST *pIDList;
SHGetSpecialFolderLocation(
NULL,
CSIDL_STARTUP,
&pIDList
);

SHGetPathFromIDList(
pIDList,
szPath
);
// 然后调用下面的CreateLink创建快捷方式

// CreateLink - uses the shell's IShellLink and IPersistFile interfaces
// to create and store a shortcut to the specified object.
// Returns the result of calling the member functions of the interfaces.
// lpszPathObj - address of a buffer containing the path of the object.
// lpszPathLink - address of a buffer containing the path where the
// shell link is to be stored.
// lpszDesc - address of a buffer containing the description of the
// shell link.
HRESULT CreateLink(LPCSTR lpszPathObj,
LPCSTR lpszPathLink, LPCSTR lpszDesc)
{
HRESULT hres;
IShellLink *psl = NULL;
IPersistFile *pPf = NULL;
WORD wsz[256];
TCHAR buf[256];
CComUser theComUser;
char szPath[MAX_PATH];
char *szPos;

hres = CoCreateInstance( CLSID_ShellLink,
NULL,
CLSCTX_INPROC_SERVER,
IID_IShellLink,
(LPVOID*)&psl
);

if(FAILED(hres))
goto cleanup;

hres = psl->QueryInterface(IID_IPersistFile, (LPVOID*)&pPf);
if(FAILED(hres))
goto cleanup;

hres = psl->SetPath(lpszPathObj);
if(FAILED(hres))
goto cleanup;
//添加 2002.2.1
szPos = strrchr( lpszPathObj , '\\' );
if( szPos )
{
memcpy( szPath , lpszPathObj , szPos - lpszPathObj );
szPath[szPos-lpszPathObj] = '\0';
}
else
{
goto cleanup;
}
hres = psl->SetWorkingDirectory( szPath );
if(FAILED(hres))
goto cleanup;

//place the shortcut on the desktop
lstrcpy(buf, lpszPathLink );
lstrcat(buf, "\\" );
lstrcat(buf, lpszDesc );
MultiByteToWideChar(CP_ACP, 0, buf, -1, wsz, MAX_PATH);
hres = pPf->Save(wsz, TRUE);
if(FAILED(hres))
goto cleanup;

cleanup:
if(pPf)
pPf->Release();
if(psl)
psl->Release();

return hres;
}

[hotness28]

直接把程序拷到目录下面，创建什么快捷方式？