标题: [求助]如何用批处理来获得当前系统已安装的字体?
[打印本页]
作者: 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