すみません、教えてください。
インストールされているフォントの一覧を取得したいのですが
出来ますでしょうか？

sdim font_list,12000
chdir windir+"\\font"
dirlist font_list,"*.ttf",0
a=stat
sdim file_name,64,a
sdim font_name,64,a
notesel font_list
repeat a : noteget file_name.cnt,cnt : loop

こんな感じで、ファイルネームは取得出来たのですが
フォントネームの方の取得の仕方が分からないのです。
どなたか宜しくお願いします。