|
楼主如有兴趣可以自己编一个(AutoIt3)!
例子:(对于楼主的要求需要改进)
- #include <WinAPIEx.au3> ;_FontsList()
- MsgBox(0,"",_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 ;字体列表
复制代码 |
|