广州住房公积金建设银行预约网站/世界杯最新排名

本例程用到的COM接口有IShellLinkA和IPersistFile。
请注意因为函数参数的类型不为BSTR，所以这两个接口可直接传char *或wchar_t *字符串，不需要提前转化为BSTR类型。

C语言的写法：

/* 这个程序只能在C编译器下编译成功, 请确保源文件的扩展名为c */
#define COBJMACROS
#include <stdio.h>
#include <ShObjIdl.h>// char *字符串转wchar_t *字符串
wchar_t *gb2312_to_utf16(const char *s)
{int n;wchar_t *ws;n = MultiByteToWideChar(CP_ACP, 0, s, -1, NULL, 0);ws = calloc(n, sizeof(wchar_t));if (ws != NULL)MultiByteToWideChar(CP_ACP, 0, s, -1, ws, n);return ws;
}// 创建快捷方式
void create_shortcut(const char *name, const char *target, const char *desc)
{wchar_t *ws;IPersistFile *file;IShellLinkA *link;HRESULT hr;hr = CoCreateInstance(&CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER, &IID_IShellLinkA, &link);if (SUCCEEDED(hr)){// 以下两个函数可直接传char *字符串IShellLinkA_SetPath(link, target);IShellLinkA_SetDescription(link, desc);hr = IShellLinkA_QueryInterface(link, &IID_IPersistFile, &file);if (SUCCEEDED(hr)){ws = gb2312_to_utf16(name);hr = IPersistFile_Save(file, ws, TRUE); // 第二个参数不是BSTR类型, 而是LPCOLESTR类型, 直接传wchar_t *字符串即可// 第三个参数决定是否将此文件用作后续的工作文件free(ws);if (SUCCEEDED(hr))printf("创建快捷方式%s成功\n", name);elseprintf("创建快捷方式%s失败\n", name);IPersistFile_Release(file);}IShellLinkA_Release(link);}
}// 解析快捷方式
void read_shortcut(const char *name)
{char target[MAX_PATH]; // 在Windows系统中, 路径的最大长度是MAX_PATHchar desc[INFOTIPSIZE]; // 在Windows系统中, 快捷方式描述的最大长度是INFOTIPSIZEwchar_t *ws;IPersistFile *file;IShellLinkA *link;HRESULT hr;hr = CoCreateInstance(&CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER, &IID_IShellLinkA, &link);if (SUCCEEDED(hr)){hr = IShellLinkA_QueryInterface(link, &IID_IPersistFile, &file);if (SUCCEEDED(hr)){ws = gb2312_to_utf16(name);hr = IPersistFile_Load(file, ws, STGM_READ);free(ws);if (SUCCEEDED(hr)){printf("解析快捷方式%s成功\n", name);hr = IShellLinkA_GetPath(link, target, MAX_PATH, NULL, SLGP_RAWPATH);if (SUCCEEDED(hr))printf("链接目标: %s\n", target);hr = IShellLinkA_GetDescription(link, desc, INFOTIPSIZE);if (SUCCEEDED(hr))printf("描述: %s\n", desc);}elseprintf("解析快捷方式%s失败\n", name);IPersistFile_Release(file);}IShellLinkA_Release(link);}
}// 解析开始菜单中Office 2010的所有快捷方式
void read_office2010_links()
{char *folder = "C:\\Documents and Settings\\All Users\\「开始」菜单\\程序\\Microsoft Office";char path[MAX_PATH];HANDLE find;WIN32_FIND_DATAA find_data;// 请注意: _s结尾的字符串操作函数, 凡是命名为MaxCount的参数, 都要记得减去1, 否则字符数组刚好满的时候程序会崩溃_snprintf_s(path, sizeof(path), sizeof(path) - 1, "%s\\*.lnk", folder);find = FindFirstFileA(path, &find_data);if (find != INVALID_HANDLE_VALUE){do{_snprintf_s(path, sizeof(path), sizeof(path) - 1, "%s\\%s", folder, find_data.cFileName);read_shortcut(path);} while (FindNextFileA(find, &find_data));FindClose(find);}
}int main()
{CoInitializeEx(NULL, COINIT_APARTMENTTHREADED | COINIT_DISABLE_OLE1DDE);create_shortcut("示例快捷方式.lnk", "C:\\WINDOWS\\system32\\shell32.dll", "Windows XP界面真好看啊！");read_shortcut("示例快捷方式.lnk");read_office2010_links();CoUninitialize();return 0;
}

C++的写法：

#include <iostream>
#include <ShObjIdl.h>using namespace std;// char *字符串转wchar_t *字符串
wchar_t *gb2312_to_utf16(const char *s)
{int n;wchar_t *ws;n = MultiByteToWideChar(CP_ACP, 0, s, -1, NULL, 0);ws = new wchar_t[n];if (ws != NULL)MultiByteToWideChar(CP_ACP, 0, s, -1, ws, n);return ws;
}// 创建快捷方式
void create_shortcut(const char *name, const char *target, const char *desc)
{wchar_t *ws;IPersistFile *file;IShellLinkA *link;HRESULT hr;hr = CoCreateInstance(CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER, IID_PPV_ARGS(&link));if (SUCCEEDED(hr)){// 以下两个函数可直接传char *字符串link->SetPath(target);link->SetDescription(desc);hr = link->QueryInterface(&file);if (SUCCEEDED(hr)){ws = gb2312_to_utf16(name);hr = file->Save(ws, TRUE); // 第一个参数不是BSTR类型, 而是LPCOLESTR类型, 直接传wchar_t *字符串即可// 第二个参数决定是否将此文件用作后续的工作文件delete[] ws;if (SUCCEEDED(hr))cout << "创建快捷方式" << name << "成功" << endl;elsecout << "创建快捷方式" << name << "失败" << endl;file->Release();}link->Release();}
}// 解析快捷方式
void read_shortcut(const char *name)
{char target[MAX_PATH]; // 在Windows系统中, 路径的最大长度是MAX_PATHchar desc[INFOTIPSIZE]; // 在Windows系统中, 快捷方式描述的最大长度是INFOTIPSIZEwchar_t *ws;IPersistFile *file;IShellLinkA *link;HRESULT hr;hr = CoCreateInstance(CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER, IID_PPV_ARGS(&link));if (SUCCEEDED(hr)){hr = link->QueryInterface(&file);if (SUCCEEDED(hr)){ws = gb2312_to_utf16(name);hr = file->Load(ws, STGM_READ);delete[] ws;if (SUCCEEDED(hr)){cout << "解析快捷方式" << name << "成功" << endl;hr = link->GetPath(target, MAX_PATH, NULL, SLGP_RAWPATH);if (SUCCEEDED(hr))cout << "链接目标: " << target << endl;hr = link->GetDescription(desc, INFOTIPSIZE);if (SUCCEEDED(hr))cout << "描述: " << desc << endl;}elsecout << "解析快捷方式" << name << "失败" << endl;file->Release();}link->Release();}
}// 解析开始菜单中Office 2010的所有快捷方式
void read_office2010_links()
{char *folder = "C:\\Documents and Settings\\All Users\\「开始」菜单\\程序\\Microsoft Office";char path[MAX_PATH];HANDLE find;WIN32_FIND_DATAA find_data;// 请注意: _s结尾的字符串操作函数, 凡是命名为MaxCount的参数, 都要记得减去1, 否则字符数组刚好满的时候程序会崩溃_snprintf_s(path, sizeof(path) - 1, "%s\\*.lnk", folder);find = FindFirstFileA(path, &find_data);if (find != INVALID_HANDLE_VALUE){do{_snprintf_s(path, sizeof(path) - 1, "%s\\%s", folder, find_data.cFileName);read_shortcut(path);} while (FindNextFileA(find, &find_data));FindClose(find);}
}int main()
{CoInitializeEx(NULL, COINIT_APARTMENTTHREADED | COINIT_DISABLE_OLE1DDE);create_shortcut("示例快捷方式.lnk", "C:\\WINDOWS\\system32\\shell32.dll", "Windows XP界面真好看啊！");read_shortcut("示例快捷方式.lnk");read_office2010_links();CoUninitialize();return 0;
}

程序创建的lnk快捷方式：

程序运行结果：

创建快捷方式示例快捷方式.lnk成功
解析快捷方式示例快捷方式.lnk成功
链接目标: C:\WINDOWS\system32\shell32.dll
描述: Windows XP界面真好看啊！
解析快捷方式C:\Documents and Settings\All Users\「开始」菜单\程序\Microsoft Offi
ce\Microsoft Access 2010.lnk成功
链接目标: C:\WINDOWS\Installer\{90140000-0011-0000-0000-0000000FF1CE}\accicons.e
xe
描述: 使用 Microsoft Access 创建数据库和程序来跟踪与管理信息。
解析快捷方式C:\Documents and Settings\All Users\「开始」菜单\程序\Microsoft Offi
ce\Microsoft Excel 2010.lnk成功
链接目标: C:\WINDOWS\Installer\{90140000-0011-0000-0000-0000000FF1CE}\xlicons.ex
e
描述: 使用 Microsoft Excel 执行计算、分析信息以及可视化电子表格中的数据。
解析快捷方式C:\Documents and Settings\All Users\「开始」菜单\程序\Microsoft Offi
ce\Microsoft InfoPath Designer 2010.lnk成功
链接目标: C:\WINDOWS\Installer\{90140000-0011-0000-0000-0000000FF1CE}\inficon.ex
e
描述: 使用 Microsoft InfoPath 设计动态表单，以便在整个组织中收集和重用信息。
解析快捷方式C:\Documents and Settings\All Users\「开始」菜单\程序\Microsoft Offi
ce\Microsoft InfoPath Filler 2010.lnk成功
链接目标: C:\WINDOWS\Installer\{90140000-0011-0000-0000-0000000FF1CE}\inficon.ex
e
描述: 使用 Microsoft InfoPath 填写动态表单，以便在整个组织中收集和重用信息。
解析快捷方式C:\Documents and Settings\All Users\「开始」菜单\程序\Microsoft Offi
ce\Microsoft OneNote 2010.lnk成功
链接目标: C:\WINDOWS\Installer\{90140000-0011-0000-0000-0000000FF1CE}\joticon.ex
e
描述: 使用 Microsoft OneNote 搜集、组织、查找和共享您的笔记和信息。
解析快捷方式C:\Documents and Settings\All Users\「开始」菜单\程序\Microsoft Offi
ce\Microsoft Outlook 2010.lnk成功
链接目标: C:\WINDOWS\Installer\{90140000-0011-0000-0000-0000000FF1CE}\outicon.ex
e
描述: 使用 Microsoft Outlook 发送和接收电子邮件；管理日程、联系人和任务；以及记
录活动。
解析快捷方式C:\Documents and Settings\All Users\「开始」菜单\程序\Microsoft Offi
ce\Microsoft PowerPoint 2010.lnk成功
链接目标: C:\WINDOWS\Installer\{90140000-0011-0000-0000-0000000FF1CE}\pptico.exe描述: 使用 Microsoft PowerPoint 创建和编辑用于幻灯片播放、会议和网页的演示文稿。解析快捷方式C:\Documents and Settings\All Users\「开始」菜单\程序\Microsoft Offi
ce\Microsoft Project 2010.lnk成功
链接目标: C:\WINDOWS\Installer\{90140000-003B-0000-0000-0000000FF1CE}\pj11icon.e
xe
描述: 使用 Microsoft Project 计划、跟踪和管理项目，以及与工作组交流。
解析快捷方式C:\Documents and Settings\All Users\「开始」菜单\程序\Microsoft Offi
ce\Microsoft Publisher 2010.lnk成功
链接目标: C:\WINDOWS\Installer\{90140000-0011-0000-0000-0000000FF1CE}\pubs.exe
描述: 使用 Microsoft Publisher 创建新闻稿和小册子等专业品质出版物及营销素材。
解析快捷方式C:\Documents and Settings\All Users\「开始」菜单\程序\Microsoft Offi
ce\Microsoft SharePoint Workspace 2010.lnk成功
链接目标: C:\WINDOWS\Installer\{90140000-0011-0000-0000-0000000FF1CE}\grvicons.e
xe
描述: 使用 Microsoft SharePoint Workspace 将 SharePoint 网站同步到您的计算机并处
理其内容，就像始终连接到网站一样。
解析快捷方式C:\Documents and Settings\All Users\「开始」菜单\程序\Microsoft Offi
ce\Microsoft Visio 2010.lnk成功
链接目标: C:\WINDOWS\Installer\{90140000-0057-0000-0000-0000000FF1CE}\visicon.ex
e
描述: 使用 Microsoft Visio 创建、编辑和共享图表。
解析快捷方式C:\Documents and Settings\All Users\「开始」菜单\程序\Microsoft Offi
ce\Microsoft Word 2010.lnk成功
链接目标: C:\WINDOWS\Installer\{90140000-0011-0000-0000-0000000FF1CE}\wordicon.e
xe
描述: 使用 Microsoft Word 创建和编辑具有专业外观的文档，如信函、论文、报告和小册
子。
请按任意键继续. . .