随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

//声明:
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  万一  阅读(...)  评论(...编辑  收藏