Install TT Font

'****************************************************
'modFonts (Fonts.bas)
'
'Exported functions:
'
' InstallTTFont (ret.: 0: An error occured
'                      1: Successful
'                      2: Same or newer file exists
'                      3: System must be rebooted)
'    strSourcePath As String
'    strFontFileName As String
'    Optional bolShowError As Boolean
'
' ShutdownSystem
'    eType As eShutDown
'****************************************************
'NOTE: If the return value of InstallTTFont equals 3,
'      you should call ShutdownSystem(shtForceReboot)
'      after your installation succeeded (ask user).
'****************************************************