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

ljc831015

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

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

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

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

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

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

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

powerbat

start shell:Fonts
复制代码

CrLf

control fonts
复制代码

ljc831015

回复 3# CrLf

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

ljc831015

问题描述: 我在安装字体后 却在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 自我删除代码(固定代码)
第二部分 是打开窗口代码(可以更改)
第三部分 是关闭窗口代码(可以更改)