WinAPI: GetTextFace - 获取字体名称

//声明:

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;