http://hsp.tv/play/pforum.php?mode=pastwch&num=12372
しかし、font命令をalfontに置き換えて実行すると、文字が表示されません。
以下、実行した際のソースです。
#include"a2d.hsp" // ------------- モジュール ------------- #module #uselib "gdi32.dll" #func AddFontResourceEx "AddFontResourceExA" sptr, int, nullptr #func RemoveFontResourceEx "RemoveFontResourceExA" sptr, int, nullptr #deffunc addFont str fontFileName AddFontResourceEx fontFileName, 0x10 sendmsg 0xffff, 0x001D, 0, 0 return #deffunc removeFont str fontFileName RemoveFontResourceEx fontFileName, 0x10 sendmsg 0xffff, 0x001D, 0, 0 return #global // ここまでコピーしてください。 // ------------- サンプル ------------- dialog"",16,"" if stat==0 :end fontFile=refstr addFont fontFile // フォントを追加 alcreateimage 0,640,480 alcolor 0,0,0:alfont"Noto Sans CJK JP Regular",20 aldrawtext"あいうえお",0,0,640,480,1,1 alcopyimagetoscreen 0,0 redraw 1 removeFont fontFile // 終了前に実行してください。