XProfan

window 500,500
 $H Windows.ph
var Pfad$="X:DiversesStyle-7_digital-7Digital-7.ttf"
print ~AddFontResource(addr(Pfad$))'----- 1=OK
usefont "Digital-7",30,15,0,0,0
drawtext 10,100,"Test 0123"
print ~RemoveFontResource(addr(Pfad$))'-- <>0 = OK
waitin