//声明: 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;
WinAPI: GetTextFace - 获取字体名称
最新推荐文章于 2023-04-08 07:30:00 发布