AHK 获取系统已安装字体列表

DllCall("gdi32\EnumFontFamilies","uint",DllCall("GetDC","uint",0),"uint",0,"uint",RegisterCallback("EnumFontFamilies"),"uint",a_FontList:="")

Gui, Add, DropDownList, Sort choose1 vfontsList,%a_FontList%
Gui, Show
Return

EnumFontFamilies(lpelf,lpntm,FontType,lP)
{
    global a_FontList
    if (substr(StrGet(lpelf+28),1,1)<>"@")
        a_FontList .= StrGet(lpelf+28) . "|" 
    Return 1
}