新字体的永久注册

约定不等于承诺〃 2022-04-08 10:59 228阅读 0赞

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;
    }