//声明:
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;
转载于:https://my.oschina.net/hermer/blog/319988