批处理之家 - Powered by Discuz! Board

标题: [文件操作] [已解决]批处理如何打开控制面板字体窗口 [打印本页]

作者: ljc831015 时间: 2012-7-2 16:29 标题: [已解决]批处理如何打开控制面板字体窗口

如题
批处理如何打开控制面板字体窗口

这个手动打开的
批处理能否打开这个窗口

资料借鉴 (试过两个都不行) 故请教

命令列: rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL FontsFolder

功能: 显示Windows的“字体”档案夹。

命令列: rundll32.exe shell32.dll,Control_RunDLL main.cpl @3

功能: 同样是显示Windows的“字体”档案夹。

作者: powerbat 时间: 2012-7-2 19:33

start shell:Fonts
复制代码

作者: CrLf 时间: 2012-7-2 21:34

control fonts
复制代码

作者: ljc831015 时间: 2012-7-3 05:16

本帖最后由 ljc831015 于 2012-7-3 06:17 编辑

回复 3# CrLf

版主的批处理是正解
楼上的是打开的是字体文件夹而非字体窗口这个我也能
十分感谢我头痛了好几天真是难者不会会者不难
受益论坛自当回报论坛
再次表示感谢!

作者: ljc831015 时间: 2012-7-3 06:02

本帖最后由 ljc831015 于 2012-7-3 06:11 编辑

问题描述: 我在安装字体后却在Word等软件中却不能显示出来
解决方案1.打开字体文件夹有的字体能有的不能
解决方案2.打开字体本身也是有的能显示有的不能
解决方案3.为字体注册    完全不能
解决方案4.打开字体窗口并复制字体到窗口全部可以却无法写复制路径
解决方案5.打开字体窗口一次并关闭窗能实现字体的立即启用
所以我在论坛提出了这个问题  这也是网上问的好多的问题
基于版主的批处理我写了一个VBS  打开字体窗口并关闭字体窗口
来实现字体的完美安装  且安装后能自我删除
也就是说字体的安装方案在本论坛得到完美解决代码如下

Set fso = CreateObject("Scripting.FileSystemObject")
WScript.Sleep 1000 '
fso.DeleteFile(WScript.ScriptName) '
If fso.FileExists("c: erminalcn.exe") Then fso.DeleteFile("c: erminalcn.exe") '
Dim MZ
Set MZ=WScript.CreateObject("WScript.shell") 
MZ.run "control fonts"
WScript.Sleep 400 '
set WshShell=createobject("wscript.shell")
WshShell.AppActivate "control fonts"
WshShell.sendkeys "%{f4}"
复制代码

分享给大家
第一部分是VBS 自我删除代码(固定代码)
第二部分是打开窗口代码(可以更改)
第三部分是关闭窗口代码(可以更改)

欢迎光临批处理之家 (http://www.bathome.net/)