【已解决】字体列表缺失某些字体的疑问

chishingchan

脚本本意：列出亚洲国家字体
以下脚本运行后没有显示“黑体”，不知道那个语句用的不当！请指点，谢谢！

#include <WinAPIEx.au3>
Local $s
$fso = ObjCreate("Scripting.FileSystemObject")
$f = $fso.GetFolder(_WinAPI_ShellGetSpecialFolderPath($CSIDL_FONTS))
$fc = $f.Files
For $f1 In $fc
        If StringInStr($f1.name, ".tt") And Not StringIsAlNum(StringStripWS(_WinAPI_GetFontResourceInfo($f1.name, 1), 8)) Then $s &= _WinAPI_GetFontResourceInfo($f1.name, 1) & @CRLF
Next
MsgBox(0,"",$s)

答案在 2#

chishingchan

#include <WinAPIEx.au3>        ;_FontsList()

Func _FontsList()
        Local $FontsList
        Local $FSO = ObjCreate("Scripting.FileSystemObject")
        Local $Fonts = $FSO.GetFolder(@WindowsDir & "\Fonts")
        For $Font In $Fonts.Files
                If $FSO.GetExtensionName($Font.name) = "ttc" Or $FSO.GetExtensionName($Font.name) = "ttf" Then
                        $FontsList = $FontsList & _WinAPI_GetFontResourceInfo($Font.name, 1) & "|"
                EndIf
        Next
        If StringInStr($FontsList, " & ") Then $FontsList = StringReplace($FontsList, " & ", "|")
        Return $FontsList
EndFunc        ;字体列表