Как выяснить установлены ли в системе шрифты TrueType
Материал из DRKB
Как выяснить установлены ли в системе шрифты TrueType[править | править код]
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;
Source: Взято с http://delphiworld.narod.ru
ID: 01923