获取未安装字体的字体和 Windows 名称

Question

有人可以告诉我如何获得字体的字体名称吗？我如何获取具有字体名称的字体的 Windows 名称？

例如“arialblackno1.ttf”，其字体为“arialblack”。

但我希望获取未安装的字体的字体名称，它只是在一个文件夹中。

Answer 1

您在评论中说您需要 Windows 中未安装的字体的名称。

我能想到的有两种方法：-

• 使用 FreeType

• 或者，使用 GDI+，以及 PrivateFontCollection.AddFontFile()

无论哪种方式，您都需要找到 Delphi 包装器对于这些库。谷歌应该提供帮助。

似乎有一个 FreeType 绑定作为 AggPas 的一部分。但这不是我尝试过的。

Answer 2

事实上，我对你到底要问什么有一点了解（术语！）

procedure TForm14.FormCreate(Sender: TObject);
var
  DC: HDC;
  Font: HFONT;
  LogFont: TLogFont;
begin
  DC := GetDC(HWND_DESKTOP);
  Win32Check(DC <> 0);
  Font := GetCurrentObject(DC, OBJ_FONT);
  Win32Check(Font <> 0);
  Win32Check(GetObject(Font, SizeOf(LogFont), @LogFont) > 0);
  ShowMessage(LogFont.lfFaceName);
  Win32Check(ReleaseDC(HWND_DESKTOP, DC) = 1);
end;