如何检查字体支持哪些字符集（代码页）（有字母表示）？

Question

对于我的应用程序，我需要显示一个系统字体列表，但过滤掉所有不支持20种预定义语言的字体（这一套是硬编码的），只显示那些支持的。

我可以通过调用vcl.forms.screen.fonts获得可用字体的列表。
仅知道该列表中的字体名称，如何检查该字体支持哪些字符集（代码页）（有实际的字母）？

例如，像Arial或Times New Roman这样的通用字体几乎包含所有欧洲语言的字符，包括西里尔文（还有中文等等）。然而，许多不太常见的字体通常只有英文字母。

该应用程序是内部使用的，因此只要有一个功能，只需查询字体是否有特定于某个字符集/代码页（例如或或)的某个字母，并且该字体没有被其他通用字体（或某个占位符）的字母替代就足够了。

Answer 1

GetGlyphIndees函数可用于确定字体中是否存在字形。

DWORD GetGlyphIndices(
  _In_  HDC     hdc,
  _In_  LPCTSTR lpstr,
  _In_  int     c,
  _Out_ LPWORD  pgi,
  _In_  DWORD   fl
);

参数[...]

fl[in]:指定不支持字形时应如何处理字形。此参数可以是以下值。

此函数尝试为LPSTR所指向的字符串中的每个字符标识一个单字形表示。虽然这对于某些低级目的（如操作字体文件）很有用，但希望将字符串映射到字形的高级应用程序通常希望使用Uniscribe函数。

由于这两个API都是从Win2k开始支持的，所以使用哪一个可能是一个口味问题。

（编辑：刚刚注意到导入已经在Windows.pas中）

procedure Test( dc : HDC);
var str : UnicodeString;
    buf : array of WORD;
    len,i : Integer;
    count : DWORD;
begin
  str := 'abc'+WideChar($0416)+'äöü';
  len := Length(str);
  SetLength( buf, len);
  count := GetGlyphIndicesW( dc, PWideChar(str), len, @buf[0], GGI_MARK_NONEXISTING_GLYPHS);
  if count > 0 then begin
    for i := 0 to count-1 do begin
      Write('index ',i,': ');
      if buf[i] = $FFFF
      then Writeln('glyph missing')
      else Writeln('ok');
    end;
  end;
end;

index 0: ok
index 1: ok
index 2: ok
index 3: glyph missing
index 4: ok
index 5: ok
index 6: ok