WinAPI: GetTextFace - 获取字体名称

最新推荐文章于 2024-05-13 11:43:29 发布

转载最新推荐文章于 2024-05-13 11:43:29 发布 · 2.3k 阅读

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

//声明:
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;