Author: Tomas Rutkauskas

How to determine if a font is installed

Answer:

You can just use this function, or put the code directly wherever you need it 

1   function FontInstalled(const FontName: string): Boolean;
2   begin
3     Result := Screen.Fonts.IndexOf(FontName) > 0
4   end;
5   
6   //then just call it 
7   
8   if not (FontInstalled('Pilobolus')) then
9   begin
10    ShowMessage('Pilobolus font is not installed!')
11      //you can do stuff here to install it, or whatever you need...
12  end;