中国DOS联盟

如何用批处理来获得当前系统已安装的字体？

我正在做一个系统字体切换器，就是想用

批处理获得当前系统已经安装的字体，并允许用户选择这些字体

自定义的模块没加上去，哪个高手来加上去？

@echo off

COLOR 2F

Set Prog=       系统字体切换专用工具     

Set L1=　　　　　　╭══════════════════╮

Set L2=　　　　　　║　　　　　　　　　　　　　　　　　　║

Set L3=　　　╭══┤　%Prog%　├══╮

Set L4=　　　║　　║　　　　　　　　　　　　　　　　　　║　　║

Set L5=　　　║　　╰══════════════════╯　　║

Set L6=　　　║        1.将字体还原为系统默认：SIMSUN　  　　　║

Set L7=　　　║                                        　　　　║

Set L8=　　　║        2.将字体更改为微软雅黑：          　　　║

Set L10=　　　╟════════════════════════╢

Set L11=　　　║　                                            　║

Set L12=　　　╰────────────────────────╯

Set L13=　　　║           字体更改成功，请重启体验效果  ！   　║

Title %Prog%



Echo %L1%

Echo %L2%

Echo %L3%

Echo %L4%

Echo %L5%

Echo %L7%

Echo %L6%

Echo %L7%

Echo %L8%

Echo %L7%

Echo %L10%

Echo %L11%

Echo %L12%



Set /P Choice=　　　请选择要进行的操作 (1/2/Q) ，然后按回车：

If "%Choice%"=="" Goto Start

If Not "%Choice%"=="" Set Choice=%Choice:~0,1%

If /I "%Choice%"=="1" Goto SS

If /I "%Choice%"=="2" Goto YH

If /I "%Choice%"=="Q" Goto exit



:SS

reg add  "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\GRE_Initialize" /v GUIFont.Facename /t reg_sz /d "SimSun" /f

goto success



:YH

reg add  "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\GRE_Initialize" /v GUIFont.Facename  /t reg_sz /d "微软雅黑" /f

goto success



:success



Echo %L1%

Echo %L2%

Echo %L3%

Echo %L4%

Echo %L5%

Echo %L7%

Echo %L13%

Echo %L7%

Echo %L10%

Echo %L11%

Echo %L12%

pause



:exit

exit