XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Installierte Schriften anzeigen
 $H windows.ph
cls

Proc FontListe

    Parameters LogFont&, TextMetric&, FontType&, Data&
    declare font$
    font$ = string$(LogFont&,60);

    If font$ >

        addstring font$
        return 1

    else

        return 0

    EndIf

EndProc

print shortname$(getDir$(@))
ClearList
~EnumFontFamilies(%HDC,0,ProcAddr(Fontliste,4),0);
Decimals 0
Print str$(%GetCount+1)+ Fonts gefunden
listbox$(Installierte Fonts,1)
End