Board logo

标题: [求助]如何用批处理来获得当前系统已安装的字体? [打印本页]

作者: secowu     时间: 2007-10-24 13:00    标题: [求助]如何用批处理来获得当前系统已安装的字体?

[求助]如何用批处理来获得当前系统已安装的字体?

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

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

自定义的模块没加上去,哪个高手来加上去?
@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