お望みの回答になっているかどうか・・・。
参考までに。
#module
#ifdef __GDI32__
//
// 外部のフォントを読み込む
// 要・#include "gdi32.as"
//
// p1 読み込みたい外部フォントファイル
//
#deffunc loadFont str p1
if p1="" : return
exist p1 : if strsize=-1 : return
ft = p1 : pft = varptr( ft )
AddFontResourceA pft : ft = ""
return
//
// loadFont で読み込んだフォントを削除する
//
#deffunc deleteFont onexit
if pft : RemoveFontResourceA pft
return
#endif
#global
//
// 使用例
//
// 例えば、"xxx.font"という外部のフォントのフォント名が
// "XXX文字"だとする場合
//
#include "gdi32.as"
loadFont "xxx.font"
font "XXX文字", 16
mes "このまま実行すると、エラーになります。"