新字体的永久注册

CString GetCurrentModuleDir()
{
	TCHAR szPath[MAX_PATH + 1] = { 0 };
	if (0 == ::GetModuleFileName((HMODULE)&__ImageBase, szPath, MAX_PATH))
		return L"";

	::PathRemoveFileSpec(szPath);

	CString strDir = szPath;
	return strDir;
}

void PathAddBackslashEx(CString& strPath)
{
	CString strTemp;
	strTemp = strPath.Right(1);

	if (strTemp != _T("\\") && strTemp != _T("/"))
		strPath.Append(_T("\\"));
}

void RegisterPermanentFonts(const CString& strFontName, const CString& strFontFileName)
{
	//获取字体文件路径,假定字体文件放在exe的同级目录
	CString strExistingFilePath = GetCurrentModuleDir() + strFontFileName;
	if (FALSE == ::PathFileExists(strExistingFilePath))
		return;

	WCHAR szFontDir[MAX_PATH] = { 0 };
	SHGetFolderPath(NULL, CSIDL_FONTS, NULL, 0, szFontDir);
	CString strFontDir = szFontDir;
	PathAddBackslashEx(strFontDir);
	CString strNewFilePath = strFontDir + strFontFileName;

	//1. 拷贝字体文件
	::CopyFile(strExistingFilePath, strNewFilePath, FALSE);

	//临时加入生效
	AddFontResource(strFontFileName);

	//永久使用注册
	CRegKey reg;
	LONG lRet=0;
	lRet = reg.Open(HKEY_LOCAL_MACHINE, _T("SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Fonts"), KEY_READ | KEY_WRITE);
	if (lRet == ERROR_SUCCESS)
	{
		CString strFullFontName = strFontName;
		strFullFontName += _T(" (TrueType)");
		reg.SetStringValue(strFontName, strFontFileName);
	}
	reg.Close();

	//发广播通知,超时退出
	::SendMessageTimeout(HWND_BROADCAST, WM_FONTCHANGE, 0, 0, SMTO_ABORTIFHUNG | SMTO_BLOCK, 5000, NULL);
}

int _tmain(int argc, _TCHAR* argv[])
{
	RegisterPermanentFonts(L"XXXXXXX", L"XXXXXXX.ttf");
	return 0;
}
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值