Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как выяснить установлены ли в системе шрифты TrueType

Автор: Poseidon 19.5.2005, 04:06

Код

function IsTrueTypeInstalled: 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;