Как выяснить установлены ли в системе шрифты TrueType в Delphi?

function IsTrueTypeAvailable : bool; 
var
  {$IFDEF WIN32}
  rs : TRasterizerStatus; 
  {$ELSE} 
  rs : TRasterizer_Status; 
  {$ENDIF} 
begin
  result := false; 
  if not GetRasterizerCaps(rs, sizeof(rs)) then exit; 
  if rs.WFlags and TT_AVAILABLE <> TT_AVAILABLE then exit; 
  if rs.WFlags and TT_ENABLED <> TT_ENABLED then exit; 
  result := true; 
end; 
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (10 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий