WinAPI: GetTextFace - 获取字体名称

最新推荐文章于 2022-02-21 08:30:00 发布

转载最新推荐文章于 2022-02-21 08:30:00 发布 · 111 阅读

本文提供了一个使用GetTextFace函数来获取当前设备环境所使用的文本字体名称及长度的Delphi示例代码。通过该示例可以了解到如何在Delphi中调用API函数以实现字体信息的读取。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//声明:
GetTextFace(
  DC: HDC;        {设备环境句柄}
  Count: Integer; {缓冲区大小}
  Buffer: PChar   {缓冲区}
): Integer;       {返回字符串长度}


//举例:
var
  dc: HDC;
  b: array[0..254] of Char;
  num: Integer;
begin
  dc := Canvas.Handle;
  num := GetTextFace(dc, SizeOf(b), b);
  ShowMessage(b);             {Tahoma}
  ShowMessage(IntToStr(num)); {6}
end;

关注博主即可阅读全文