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

Code:

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;