Win7以上系统批处理如何安装字体？

nttwqz · 发表于 2017-6-20 20:33:18

在XP时，用命令复制到Fonts文件夹即可，但是从Win7以后，这种方法失效了，无论copy、xcopy、robocopy、move都不行，重启也不会安装，最好不借助自三方工具。

窄口牛 · 发表于 2017-6-20 21:56:26

字体安装.rar (6.99 KB, 下载次数: 449)

freesoft00 · 发表于 2017-6-20 21:23:42

https://github.com/MichaelIT/autoinstallfont
这个用了第三方，但是是开源的。

nttwqz · 发表于 2017-6-20 22:48:34

freesoft00 发表于 2017-6-20 21:23
https://github.com/MichaelIT/autoinstallfont
这个用了第三方，但是是开源的。

这个用了fontreg，这个工具我知道

2012abc. · 发表于 2017-6-20 22:55:21

win7字体安装很简单呀，打开字体文件夹全选，右键安装就行了

nttwqz · 发表于 2017-6-20 23:12:08

窄口牛发表于 2017-6-20 21:56

多谢，我是想知道如何不用第三方工具来安装，这个我之前找到了，用起来也很简单，说白了先复制字体到Fonts文件夹，然后执行一下相应的程序即可。

红毛樱木 · 发表于 2017-6-20 23:24:55

fontview.exe
系统自带的工具，试试。后面接字体路径

nttwqz · 发表于 2017-6-21 00:15:16

红毛樱木发表于 2017-6-20 23:24
fontview.exe
系统自带的工具，试试。后面接字体路径

试了，只能查看或打印，就是不能安装。

测出出来两个参数
/p 字体文件打印
/d 字体文件仅查看，安装灰选

红毛樱木 · 发表于 2017-6-21 00:24:32

fontext.dll这个DLL干的事，好像。具体函数你查一下吧

红毛樱木 · 发表于 2017-6-21 00:32:14

rundll32.exe gdi32.dll,AddFontResourceA %windir%\fonts\要安装的字体.ttf
网上找的，试试，先复制再注册

窄口牛 · 发表于 2017-6-21 06:55:23

本帖最后由窄口牛于 2017-6-21 07:26 编辑

@echo off
::字体所在完整路径
set "zt=D:\桌面\font579\font579\腾祥铚谦隶书简.ttf"
::安装字体
mshta "javascript:new ActiveXObject('Shell.Application').NameSpace(20).CopyHere('%zt:\=\\%',0x0010);close()"
pause

复制代码

您改造把，您比我对批处理玩得转，改好发一下？

nttwqz · 发表于 2017-6-21 08:37:50

红毛樱木发表于 2017-6-21 00:32
rundll32.exe gdi32.dll,AddFontResourceA %windir%\fonts\要安装的字体.ttf
网上找的，试试，先复制再注 ...

发帖前试了，无效

nttwqz · 发表于 2017-6-21 08:46:22

窄口牛发表于 2017-6-21 06:55
您改造把，您比我对批处理玩得转，改好发一下？

我也不会js，这个发帖前我也看了，还是您来改吧，何况目前不想通过js或者vbs实现

现在用的fontreg，执行一下也很简单，我只是怕这软件年代久远会产生异常问题，主要是想研究下不用第三方怎么装

窄口牛 · 发表于 2017-6-21 10:02:19

本帖最后由窄口牛于 2017-6-21 10:03 编辑

只改前半部分，获取字体文件列表，然后依照文件列表执行安装。
后半个确实不敢改。

nttwqz · 发表于 2017-6-21 10:18:56

红毛樱木发表于 2017-6-21 00:24
fontext.dll这个DLL干的事，好像。具体函数你查一下吧

函数怎么查，有没有具体网站，之前搜了半天fontext.dll也没见什么有用的东东

右键字体菜单有个安装，要是能用系统原生的功能安装就好了

guies · 发表于 2017-6-22 09:41:00

這個 vbs 可以安裝當前文件夾下的所有字型，
若想連這個檔都省略，那就把這個 .vbs 轉成 .bat 吧

Set ofso = CreateObject("Scripting.FileSystemObject")
SourceFolder = ofso.GetParentFolderName(Wscript.ScriptFullName)
Const FONTS = &H14&
Set objShell = CreateObject("Shell.Application")
Set oSource = objShell.Namespace(SourceFolder)
Set oWinFonts = objShell.Namespace(FONTS)
' Lame VBscript needs 4 f*ing lines instead of "if (/\.ttf$/i) " ...
Set rxTTF = New RegExp
rxTTF.IgnoreCase = True
rxTTF.Pattern = "\.ttf$"
FOR EACH FontFile IN oSource.Items()
IF rxTTF.Test(FontFile.Path) THEN
oWinFonts.CopyHere FontFile.Path
END IF
NEXT

复制代码

窄口牛 · 发表于 2017-6-22 13:32:36

楼上测试没问题
上传为附件

字体安装.rar (456 Bytes, 下载次数: 1730)

nttwqz · 发表于 2017-6-22 21:57:07

guies 发表于 2017-6-22 09:41
這個 vbs 可以安裝當前文件夾下的所有字型，
若想連這個檔都省略，那就把這個 .vbs 轉成 .bat 吧

多谢兄台，又多了一种安装字体的方式

17488 · 发表于 2018-12-8 23:37:22

窄口牛发表于 2017-6-20 21:56

谢谢我下来试试

qawandaz27 · 发表于 2018-12-19 10:08:11

vbs怎么转bat？

softhand · 发表于 2019-1-7 08:54:57

17楼给出的不是批处理啊，也是vbs

yybl · 发表于 2019-12-25 16:51:57

窄口牛发表于 2017-6-20 21:56

非常感谢！@@

kensan · 发表于 2020-3-4 16:05:16

fontreg.exe

beybeyk · 发表于 2020-10-9 20:32:59

窄口牛发表于 2017-6-22 13:32
楼上测试没问题
上传为附件

又多了一种安装字体的方法

dschief · 发表于 2023-5-11 12:43:52

窄口牛发表于 2017-6-20 21:56

我也來試試

sky4080 · 发表于 2023-7-12 13:04:36

我也来试试！！

M_zero · 发表于 2023-7-26 21:32:12

感谢分享

tilltotell007 · 发表于 2024-2-12 12:55:38

感谢，这个我有用

		自动登录	找回密码
密码			注册

[求助] Win7以上系统批处理如何安装字体？

点评

点评

点评

点评

点评

点评

点评

评分