这些代码错在哪?AddFontResource("d:\\myfont.ttf"); SendMessage(WND_BROADCAST,0,0); //应该是:SendMessage(HWM_FONTCHANGE, WND_B

rdr 2005-04-21 01:38:26
把自己的字体文件加入字体列表,下面的代码不管用,不知道都错在哪儿?
  注:1.该字体文件名与字体名称相同。
    2.将字体放在windows\fonts目录下,我的程序启动后字体不能正常显示,需要点击运行字体文件才管用。
代码如下:
  AddFontResource("d:\\myfont.ttf");
  SendMessage(WND_BROADCAST,0,0);
//应该是:SendMessage(HWM_FONTCHANGE, WND_BROADCAST,0,0);
//但这样写,编译时会报错。

//是否先用CreateScalableFontResource()创建资源文件?该如何调用该函数?

...全文
2376 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
老夏Max 2005-05-09
  • 打赏
  • 举报
回复
永久安装使用,类似下面的代码:
CString sSourceDir = "D:\\TT6\\";
//.TTF file name.
CString sFontFileName = "TT6.TTF";
//Font description (as it will appear in Control Panel).
CString sFontName = "金梅粗圓體(TrueType)";

TCHAR sWinDir [MAX_PATH];
GetWindowsDirectory(sWinDir,MAX_PATH);
CString sFontDir(sWinDir);
sFontDir += "\\Fonts\\";

CString sFOTFile = sFontDir;

sFOTFile += (sFontFileName.Left(sFontFileName.GetLength()-4) + ".FOT");

CopyFile((sSourceDir + sFontFileName),(sFontDir + sFontFileName),FALSE);
BOOL Result;
Result = CreateScalableFontResource(0, sFOTFile, sFontFileName, sFontDir);
Result = AddFontResource(sFOTFile);
HKEY phkResult;
DWORD RegResult;
LONG Rlt = RegCreateKeyEx(HKEY_LOCAL_MACHINE,
"SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Fonts", 0, "REG_SZ",
0, KEY_WRITE, 0,&phkResult ,®Result);
if(Rlt != ERROR_SUCCESS)
{
AfxMessageBox("Create Key Failed!");
}

RegSetValueEx(phkResult, sFontName, 0, REG_SZ, (CONST BYTE* )((LPCTSTR)sFontFileName), sFontFileName.GetLength());
RegCloseKey(phkResult);
::SendMessage (HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
DeleteFile((sFontDir + sFontFileName));
老夏Max 2005-04-21
  • 打赏
  • 举报
回复
//应该是:SendMessage(HWM_FONTCHANGE, WND_BROADCAST,0,0);
//但这样写,编译时会报错。
=============================
使用全局API函数:
::SendMessage(HWND_BROADCAST,WM_FONTCHANGE, 0, 0);
编译就不会出错了!
老夏Max 2005-04-21
  • 打赏
  • 举报
回复
如果可以的话,你将你的程序源代码发给我,我看看能不能改好!
xia_qingqi@broadxent.com.cn
rdr 2005-04-21
  • 打赏
  • 举报
回复
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
不好意思!上面这个函数没有用错,是我在这里写错的。
vcleaner提的文章我看过了,我英语不好,只识得文章中的绝大部分单词,文意看的似懂非懂。
现在还是茅塞未开,多谢vcleaner!
   能有相关代码就好了!
老夏Max 2005-04-21
  • 打赏
  • 举报
回复
CreateScalableFontResource 为一种TureType字体创建一个资源文件,以便能用API函数AddFontResource将其加入Windows系统 !
老夏Max 2005-04-21
  • 打赏
  • 举报
回复
1.关于字体:
http://msdn.microsoft.com/library/en-us/gdi/fontext_371v.asp
2.安装和删除字体
http://msdn.microsoft.com/library/en-us/gdi/fontext_2ylq.asp
老夏Max 2005-04-21
  • 打赏
  • 举报
回复
如果是使用资源中的字体,应该:
To install unique hidden font resources follow these steps:

1、Copy the TrueType font file to a temporary file with a unique filename such as "ttfont01.ttf" that can be owned by the instance of the application.


2、Call the CreateScalableFontResource() function to create a uniquely named temporary hidden font resource file that can also be owned by the instance of the application.


3、Call the AddFontResource() function to install this uniquely named font resource file for this instance of the application.


4、Use the font in the application as desired.


5、When the instance of the application terminates or is otherwise finished with the font file, it should uninstall the font resource by calling the RemoveFontResource() function until it fails.


6、Lastly, the instance of the application should delete the temporary font resource file and the temporary TrueType font file that it created.
老夏Max 2005-04-21
  • 打赏
  • 举报
回复
使用应该是这样的:
1.使用 AddFontResource 把您的字体送入 Windows 字体列表。
2.使用 SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0) 广播通知。
3.这时候开始,您的字体才可以随意使用。
4.使用 RemoveFontResource 从 Windows 字体列表删除您的字体。
5.SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0) 再通知一遍。
老夏Max 2005-04-21
  • 打赏
  • 举报
回复
应该是:SendMessage(HWND_BROADCAST,WM_FONTCHANGE, 0, 0);
内容概要:《近视管理白皮书(2025)》由中华医学会眼科学分会眼视光学组等权威机构发布,旨在为近视管理提供科学、规范且可行的方案。白皮书强调高质量近视管理临床研究的重要性,提出了研究时长、对照组选择及反弹效应评估等关键要素,确保研究结果的可靠性和可推广性。针对未近视儿童、近视儿童青少年及成年人,白皮书提出了差异化的管理策略,并提供了从初诊到随访的全流程管理方案,涵盖屈光档案建立、近视进展预测、干预手段选择与调整等环节。白皮书倡导全生命周期近视管理理念,旨在通过系统化、个性化的近视管理,降低近视发病率及其并发症风险,提升全民眼健康水平。 适合人群:眼科医生、视光师、公共卫生政策制定者及相关领域的研究人员。 使用场景及目标:①指导临床实践,为近视管理提供科学依据;②帮助政策制定者完善近视防控政策;③为科研人员提供高质量临床研究的标准和方法。 其他说明:白皮书强调了近视管理的全流程规范化,包括初诊、预防、诊断、控制、方案调整及停用等环节,特别关注儿童青少年和成年人的差异化管理策略。此外,白皮书还倡导全生命周期近视管理,从幼儿时期的眼部发育监测到中老年时期的老视矫正,全面提升人民眼健康水平。

16,548

社区成员

发帖
与我相关
我的任务
社区描述
VC/MFC相关问题讨论
社区管理员
  • 基础类社区
  • AIGC Browser
  • encoderlee
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

        VC/MFC社区版块或许是CSDN最“古老”的版块了,记忆之中,与CSDN的年龄几乎差不多。随着时间的推移,MFC技术渐渐的偏离了开发主流,若干年之后的今天,当我们面对着微软的这个经典之笔,内心充满着敬意,那些曾经的记忆,可以说代表着二十年前曾经的辉煌……
        向经典致敬,或许是老一代程序员内心里面难以释怀的感受。互联网大行其道的今天,我们期待着MFC技术能够恢复其曾经的辉煌,或许这个期待会永远成为一种“梦想”,或许一切皆有可能……
        我们希望这个版块可以很好的适配Web时代,期待更好的互联网技术能够使得MFC技术框架得以重现活力,……

试试用AI创作助手写篇文章吧