怎样建立快捷方式？

[princewwj]

源代码

[thaliahuj]

/*
Create Shortcut to desktop
for instance: CreateShortcutToDesktop("c:\\documents\\editor.exe", "c:\\documents\\MyFile.txt", "My
File", "c:\\documents", FALSE);
*/
HRESULT CAid::CreateShortcutToDesktop(const CString Target, const CString Arguments, const CString
LinkFileName, const CString WorkingDir, const CString IconPath, bool IsFolder, bool bRunAsShow)
{
// Initialize OLE libraries
if (!AfxOleInit())
return FALSE;

HRESULT hres;

HKEY hKey;
DWORD lpType;
ULONG ulSize = MAX_PATH;
CString strLink = LinkFileName;
if (RegOpenKeyEx(HKEY_CURRENT_USER,
"Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders",
0,KEY_QUERY_VALUE,
&hKey) == ERROR_SUCCESS)
{
char szLink[MAX_PATH];
RegQueryValueEx( hKey,"Desktop",NULL,&lpType,(unsigned char *)&szLink,&ulSize);

strLink.Format("%s\\%s", szLink, LinkFileName);
RegCloseKey(hKey);
}

if (!IsFolder)
{
IShellLink* psl;
hres = CoCreateInstance(CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER, IID_IShellLink,
(LPVOID*) &psl);
if (SUCCEEDED(hres))
{
IPersistFile* ppf;

// ²Î¿¼Çë¼ûIShellLink
psl->SetPath(Target);
psl->SetArguments(Arguments);
psl->SetWorkingDirectory(WorkingDir);
if (IconPath.GetLength() > 0)
psl->SetIconLocation(IconPath, 0);
if (!bRunAsShow)
psl->SetShowCmd(SW_SHOWMINNOACTIVE);

hres = psl->QueryInterface( IID_IPersistFile, (LPVOID *) &ppf);

if (SUCCEEDED(hres))
{
CString Temp = strLink;
Temp.MakeLower();
if (Temp.Find(".lnk")==-1)
strLink += ".lnk"; // Important !!!
WORD wsz[MAX_PATH];
MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, strLink, -1, wsz,MAX_PATH);

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

ppf->Release();
}
psl->Release();
}
}
else
{
hres = _mkdir(strLink);
}
return hres;
}

[lixiaosan]

在VC中，微软已经提供了这方面的COM接口：IshellLink,该类提供了对快捷方式的创建、修改等函数，我们需要引用该接口，进行自己需要的操作。

BOOL CreateLink(LPCSTR pszFile, LPCSTR pszLink)
PszFile：程序路径，例如“D:\PWIN98\ EXPLORER.EXE”；

pszLink：快捷方式路径，如果我们在DOS查看快捷方式，就可以发现它其实是一个 后缀名为“LNK”的文件，例如“C:\EXPLORER.LNK”。

现在说明函数主体：

{
CoInitialize(NULL);//初始化COM接口
HRESULT hres;
IShellLink *psl; //定义一个ISHELLLINK对象
hres = CoCreateInstance (CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER,
IID_IShellLink, (void **)&psl); //创建实例
if (!SUCCEEDED (hres))//如果创建失败，返回
return FALSE;
IPersistFile *ppf;// 定义IpersistFile对象，用来保存ISHELLLINK对象
hres = psl->QueryInterface(IID_IPersistFile, (void **)&ppf);
//从ISHELLLINK对象中获得IpersistFile对象的接口。
if (!SUCCEEDED (hres))
{
psl->Release ();//释放ISHELLLINK对象
return FALSE;
}
hres = psl->SetPath (pszFile);
//使用ISHELLLINK的SETPATH方法设置快捷方式中的程序路径
WORD wsz [MAX_PATH]; // 定义Unicode字符串
MultiByteToWideChar (CP_ACP, 0, pszLink, -1, wsz, MAX_PATH);
// 确保快捷方式路径由ANSI字符组成
hres = ppf->Save (wsz, TRUE); //保存快捷方式
ppf->Release ();//释放IpersistFile对象
psl->Release ();//释放ISHELLLINK对象
return TRUE;
}
以上就是一个比较简单创建快捷方式的函数，更多细节请参考MSDN中的说明。

[taianmonkey]

BOOL 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 -> SetHotkey( MAKEWORD( 'R',
HOTKEYF_SHIFT |HOTKEYF_CONTROL)) ;
//从IShellLink获取其IPersistFile接口
//用于保存快捷方式的数据文件 (*.lnk)
hres = psl -> QueryInterface( IID_IPersistFile,
(void**)&ppf) ;
if( FAILED( hres))
return FALSE ;
// 确保数据文件名为ANSI格式
MultiByteToWideChar( CP_ACP, 0, szLink, -1,
wsz, MAX_PATH) ;
//调用IPersistFile::Save
//保存快捷方式的数据文件 (*.lnk)
hres = ppf -> Save( wsz, STGM_READWRITE) ;
//释放IPersistFile和IShellLink接口
ppf -> Release( ) ;
psl -> Release( ) ;
return TRUE;
}

调用方式：
TCHAR filename[MAX_PATH],filelnk[MAX_PATH];

GetModuleFileName(NULL,filename,MAX_PATH);
lstrcpy(filelnk, filename);
(_tcsrchr(filelnk,'.'))[1] = 0;
lstrcat(filelnk,_T("lnk"));
CreateLink(filename, filelnk);

[pcyy]

up

[dlscdn]

mark

[pomelowu]

http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=196943