Umm, there's a little more to it than that. For one, AddFontResource() won't persist the font between reboots (see MSDN). Microsoft KB article
Q186722 demonstrates how to do this.
>We have gotten in major trouble that way, although we were dealing with some of the older types of fonts.
>
>Here's an approach we like:
>
>After dropping the fonts in the directory
>
> if .not. afont(modfontarray, "Modern")
> declare integer AddFontResource in win32api string
> AddFontResource(addback(winpath) + "fonts\modern.fon")
> endif
>
>Code developed by Joe Silver
Mike Stewart