Buscar por:

Verificando se uma determinada fonte esta instalada

Código

{A função abaixo implementa uma rotina para testar se determinada fonte esta instalada no windows. Para evitar que a fonte a ser testada seja escrita com espaços em branco indevidos, usa-se a função Trim para retirar os espaços em branco.}

Function FonteExiste(Fonte:STring):Boolean; 

begin 

with Screen.Fonts do 

Result := IndexOf(Trim(Fonte)) > 0; 

end; //Exemplo:

Procedure TForm1.Button1Click(Sender:Tobject); 

begin 

If FonteExiste('Times New Roman') then 

ShowMessage(' Fonte já existe !') Else 

ShowMessage(' Fonte Inexistente !'); 

end;