//声明:
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;
posted on 2008-02-09 11:20  万一  阅读(3260)  评论(0编辑  收藏  举报