中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [求助]如何用批处理来获得当前系统已安装的字体?
作者:
标题: [求助]如何用批处理来获得当前系统已安装的字体? 上一主题 | 下一主题
secowu
初级用户





积分 201
发帖 92
注册 2005-12-28
状态 离线
『楼 主』:  [求助]如何用批处理来获得当前系统已安装的字体?

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

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

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

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


2007-10-24 13:00
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: