如何用批处理来获得当前系统已安装的字体？ - 中国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

第1楼　secowu	发表于 2007-10-24 13:00
初级用户　发帖 92　积分 201
[求助]如何用批处理来获得当前系统已安装的字体？如何用批处理来获得当前系统已安装的字体？我正在做一个系统字体切换器，就是想用批处理获得当前系统已经安装的字体，并允许用户选择这些字体自定义的模块没加上去，哪个高手来加上去？ @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