delphi - 通过 installaware 安装我的应用程序后，我必须打开 windows 字体文件夹

Question

我已经通过 installaware 为我的应用程序构建了一个安装程序。我在安装过程中自动将一些字体复制到 windows 字体文件夹。当我打开已安装的应用程序时，字体无法正确显示，直到我打开和关闭 windows 字体文件夹或重新启动计算机。有什么解决方案可以让我不需要打开字体文件夹或重新启动计算机？比如刷新windows新安装的字体。

我很感激任何建议。

Answer 1

所需程序是described over at MSDN .总结一下:

将字体复制到 %windir%\fonts 文件夹。

调用 AddFontResource 或 AddFontResourceEx .

广播 WM_FONTCHANGE 消息到所有顶级窗口。

找到一种方法来说服您的安装工具为您完成这项工作可能会更容易。