文件类型及相关打开程序的注册-VCer.net: VC代码 VC开源 VC文章 VC工具 VC知道 VC词典 VC论坛

目前位置：

VCer资源中心 >>>

VCer代码 >>>

文件系统

[本帖已阅读2325次分值110 回复1次]

张贴资源

发回信箱

控制面板

文件类型及相关打开程序的注册

提供者：bluejoe 张贴时间：2007-01-16 13:50:13.0 出处：vcer.net 作者：不祥

白乔

级别: VCer师长
头衔: VCer创始人

经验: 21063
作品: 512
分会: 华北分会
注册: 2003-12-01 09:20:32.0
登录: 2008-10-09 08:39:35.0

譬如：注册文件类型.pln，为其指定文件类型图标，并使用当前程序作为默认打开程序。

调用如下：

RegisterShellFileType(".pln", "Plan.Documnet", "规划文件", 1);

其中参数的含义：

filterExt：文件后缀名
fileTypeID：文件类型ID
fileTypeDesc：文件描述
iconIndex：文件图标在当前程序中的索引

BOOL CPlanningApp::RegisterShellFileType(CString filterExt, CString fileTypeID, CString fileTypeDesc, int iconIndex)
{
	CString strPathName, strTemp;

	TCHAR szLongPathName[_MAX_PATH];
	TCHAR szShortPathName[_MAX_PATH];
	::GetModuleFileName(this->m_hInstance, szLongPathName, _MAX_PATH);
	if (::GetShortPathName(szLongPathName, szShortPathName, _MAX_PATH) == 0)
	{
		// rare failure case (especially on not-so-modern file systems)
		strPathName = szLongPathName;
	}
	else
	{
		strPathName = szShortPathName;
	}

	// first register the type ID of our server
	if (!SetClassesKey(fileTypeID, fileTypeDesc))
		return FALSE;       // just skip it

	// path\DefaultIcon = path,1
	strTemp.Format("%s\\DefaultIcon", (LPCTSTR)fileTypeID);
	CString strDefaultIcon;
	strDefaultIcon.Format("\"%s\",%d", strPathName, iconIndex);
	if (!SetClassesKey(strTemp, strDefaultIcon))
		return FALSE;       // just skip it

	// path\shell\open\command = path filename
	strTemp.Format("%s\\shell\\open\\%s", (LPCTSTR)fileTypeID,
		"command");
	CString strOpenCommand;
	strOpenCommand.Format("\"%s\" \"%%1\"", strPathName);
	if (!SetClassesKey(strTemp, strOpenCommand))
		return FALSE;       // just skip it

	// no association for that suffix
	if (!SetClassesKey(filterExt, fileTypeID))
		return FALSE;       // just skip it

	return TRUE;
}

BOOL CPlanningApp::SetClassesKey(LPCTSTR lpszKey, LPCTSTR lpszValue, LPCTSTR lpszValueName)
{
	if (lpszValueName == NULL)
	{
		if (::RegSetValue(HKEY_CLASSES_ROOT, lpszKey, REG_SZ,
			  lpszValue, lstrlen(lpszValue) * sizeof(TCHAR)) != ERROR_SUCCESS)
		{
			TRACE1("Warning: registration database update failed for key '%s'.\n",
				lpszKey);
			return FALSE;
		}
		return TRUE;
	}
	else
	{
		HKEY hKey;

		if(::RegCreateKey(HKEY_CLASSES_ROOT, lpszKey, &hKey) == ERROR_SUCCESS)
		{
			LONG lResult = ::RegSetValueEx(hKey, lpszValueName, 0, REG_SZ,
				(CONST BYTE*)lpszValue, (lstrlen(lpszValue) + 1) * sizeof(TCHAR));

			if(::RegCloseKey(hKey) == ERROR_SUCCESS && lResult == ERROR_SUCCESS)
				return TRUE;
		}
		TRACE1("Warning: registration database update failed for key '%s'.\n", lpszKey);
		return FALSE;
	}
}

注：转载文章需注明来源：VCer.net 文章地址：http://vcer.net/6446.html