******* 创建快捷方式 *******

[vcfor]

我在
C:\Documents and Settings\Administrator\「开始」菜单\程序\ 目录下可以创建快捷方式；

但在
C:\Documents and Settings\All Users\「开始」菜单\程序\ 目录下创建失败。

操作系统是：Windows Server 2000

请问这是怎么回事？

创建快捷方式当然是编程实现。

[vcfor]

up

[vcfor]

up

[taianmonkey]

是目录得错了，还是没有足够的权限！

[zhaohuiguang]

void CreateLinkThenChangeIcon(LPTSTR fname_to_create_link,
LPTSTR lnk_fname)
{
HRESULT hres;
IShellLink *psl = NULL;
IPersistFile *pPf = NULL;
WORD wsz[256];
TCHAR buf[256];
int id;
LPITEMIDLIST pidl;

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(fname_to_create_link);
if(FAILED(hres))

goto cleanup;
//place the shortcut on the desktop
SHGetSpecialFolderLocation(hwnd, CSIDL_DESKTOP, >pidl);

SHGetPathFromIDList(pidl, buf);

lstrcat(buf,"\\");
lstrcat(buf,lnk_fname);

MultiByteToWideChar(CP_ACP, 0, buf, -1, wsz, MAX_PATH);

hres = pPf->Save(wsz, TRUE);

if(FAILED(hres))

goto cleanup;

GetSystemDirectory(buf, 256);

lstrcat(buf,"\\shell32.dll");

hres = psl->SetIconLocation(buf, 1);

if(FAILED(hres))

goto cleanup;

hres = psl->GetIconLocation(buf, 256, &id);

if(FAILED(hres))

goto cleanup;

pPf-&Save(wsz, TRUE);

cleanup:

if(pPf)

pPf->Release();

if(psl)

psl->Release();

}
//////代碼源自MSDN

[vcfor]

to: taianmonkey()
目录没有错，我也估计可能是没有权限，但我不是很明白，因为我也是通过Administrator身份进去的。

[vcfor]

up

[BitBlt]

先在原来的地方建再移过去可以吗?

[vcfor]

to: BitBlt(Raster Operater)
你的想法让我扩大了视野。