在 Windows 下如何从我的代码中删除字体？

Question

本文向我展示了如何从脚本，但现在我面临着删除它们的问题。我怎样才能做到这一点？任何语言都可以，我稍后会将信息转换为我需要的信息。

编辑：好的，所以我现在知道如何卸载字体（至少是大部分）。我正在向 RemoveFontResource 发出调用。之后我使用带有参数的 SendMessage ： 0xffff,0x001D,0,0 （ HWND_BROACAST,WM_FONTCHANGE ...我忘记了其他两个参数代表什么）。问题是，这会删除字体，但在控制面板的字体条目中，该字体仍然出现在那里（即使您尝试从那里删除它，因为好吧，它会说它无法从源文件或磁盘读取，

所以基本上，我按以下顺序删除字体：

• 从 C:\Windows\Fonts 物理删除
• 调用RemoveFontResource
• 调用SendMessage

什么是正确的卸载方法？

Answer 1

从我见过的所有文档中，这三行代码是执行此操作的“正确”方法，但众所周知，它并不像预期的那样完全有效。

RemoveFontResource(fontPath);               
DeleteFile(fontPath);
::SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

重新启动

我执行了上面的代码并重复了您的问题（控制面板仍然显示字体，但字体文件消失了）。然后我重新启动。现在该字体已从字体控制面板小程序中消失。

还有其他需要注意的事情：即使控制面板仍然将字体显示为“那里”，应用程序不再将其列在其字体列表中（我专门尝试了写字板，在删除 webdings.ttf 之前和之后 - 无需重新启动）是

的，我知道 - 重新启动是一个糟糕的解决方案 - 特别是如果您需要更新字体，因为您无法重新安装它（无论如何通过控制面板 - 它声称字体仍然安装），直到您删除它后重新启动（我尝试过）。

但是，如果您只想删除字体 - 这不是最糟糕的解决方案 - 卸载后字体基本上消失了（应用程序看不到它，它仅在控制面板字体中可见据我所知）并且您不需要强制重新启动。

来自 RemoveFontResourceFont 上的 SDK 帮助（可能会指出为什么会出现奇怪的现象）

如果有未提及的参考文献
字体，相关资源
保持加载状态，直到没有设备上下文
正在使用它。

Answer 2

一旦找到 Havenard 提到的实际文件名并使用您提到的文章，您就可以执行以下操作，

objFSO.DeleteFile(FontFilePath);

其中 FontFilePath 是要删除的文件的文件路径。

更多信息在这里：
technet 文章

您可能遇到的问题，在看到您的评论之前我没有想到的是，程序可能需要某种特定项目的字体。所有已知的系统字体都存储在注册表中。如果删除字体，您还应该从注册表中删除该密钥。注册表路径如下

Windows 95
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Fonts]

Windows NT
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts]

按键如下：

Key name = Full name of the font
Key type = REG_SZ
Key Value = name of font file

Answer 3

您的所有字体都可以在 C:\WINDOWS\Fonts\ 中找到，

资源管理器将屏蔽此文件夹以显示字体名称而不是真实的文件名，但它全部都在那里。您可以编辑并注释掉 C:\WINDOWS\Fonts\desktop.ini 中的行来禁用此功能并显示字体文件（可能需要重新打开资源管理器才能生效）。