100分求教，如何取得当前设备上当前字体字号的字符的象索值(100分)

100分求教，如何取得当前设备上当前字体字号的字符长和宽的象索值。<br>

取字体高<br>var<br>&nbsp; f: TFont;<br>begin<br>&nbsp; f := TFont.Create;<br>&nbsp; try<br>&nbsp; &nbsp; f.Handle := GetCurrentObject(self.Canvas.Handle, OBJ_FONT);<br>&nbsp; &nbsp; showmessagefmt('%d', [Abs(f.Height)]);<br>&nbsp; finally<br>&nbsp; &nbsp; f.Free;<br>&nbsp; end;<br>end;<br>如果是汉字或全角符号，一般字体高也是字体完宽，就不用另外计算了<br>否则你得用<br>GetCharWidth32(hDC, 字符起, 字符止, 字体宽列表:整数缓冲区)<br>来得到每一字符的宽度

多谢！<br>