如何在开始菜单的程序组里添加项目？用Shell实现，不要用DDE

[boodweb]

[jsd198]

我很关注（[e-mail]）

[elang]

想知道

[boodweb]

到底谁在问问题啊:))
好不容易在MSDN找到的：详见MSDN中“SHORTCUT: A SampleThat Manipulates Shortcuts”一文
这是我的实现，注意事先要调用CoInitialize()
BOOL CTestDlg::SetAutoRun(BOOL bAdd)
{
HRESULT hres;
IShellLink *psl;
BOOL bRet=FALSE;
char pszDesPath[MAX_PATH],pszShortcutFile[MAX_PATH];
::GetModuleFileName(NULL,pszShortcutFile,MAX_PATH);
SHGetSpecialFolderPath(m_hWnd,pszDesPath,CSIDL_PROGRAMS,0);
strcat(pszDesPath,"\\启动\\自动运行.lnk");
if(!bAdd)
return DeleteFile(pszDesPath);

hres = CoCreateInstance (CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER,
IID_IShellLink, (void **)&psl);
if (!SUCCEEDED(hres)) goto error;
IPersistFile *ppf;

// Query IShellLink for the IPersistFile interface for
// saving the shortcut in persistent storage.
hres = psl->QueryInterface (IID_IPersistFile, (void **)&ppf);
if (!SUCCEEDED (hres)) goto error;
WORD wsz [MAX_PATH]; // buffer for Unicode string

// Set the path to the shortcut target.
hres = psl->SetPath (pszShortcutFile);

if (! SUCCEEDED (hres)) goto error;

hres = psl->SetArguments("/auto");
if (! SUCCEEDED (hres)) goto error;

// Set the description of the shortcut.
hres = psl->SetDescription ("Shortcut to ScreenColor");

if (! SUCCEEDED (hres)) goto error;

// Ensure that the string consists of ANSI characters.
MultiByteToWideChar (CP_ACP, 0, pszDesPath, -1, wsz, MAX_PATH);

// Save the shortcut via the IPersistFile::Save member function.
hres = ppf->Save (wsz, TRUE);

if (! SUCCEEDED (hres)) goto error;

bRet=TRUE;
// Release the pointer to IPersistFile.
error:
ppf->Release ();

// Release the pointer to IShellLink.
psl->Release ();
return TRUE;
}

[boodweb]

OK
送你们点分吧

[boodweb]

给自己加分试试

[boodweb]

不行:))

[boodweb]

aaa

[boodweb]

1？怎么不能给分啊