如何从 Windows 命令提示符安装字体？

Question

是否可以从 Windows 上的命令提示符安装字体？如果是，命令是什么？

我试过了copy [fontname].ttf C:\Windows\Fonts\，它说复制已完成，但我既无法在 Fonts 文件夹中找到所说的字体，也无法在任何程序的字体列表中找到它们，所以这肯定不起作用。（虽然我后来能够从 Fonts 文件夹中删除上述字体）

Answer 1

这是可能的，但你必须编写一个 Windows shell 脚本来做到这一点。单独复制不会安装字体：您还需要注册字体，例如

copy "FontName.ttf" "%WINDIR%\Fonts"
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts" /v "FontName (TrueType)" /t REG_SZ /d FontName.ttf /f

或者，您可以使用以下代码行来满足您的需求；将其另存为 .vbs 文件，然后执行它。

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("<Folder or Share Location>")
Set objFolderItem = objFolder.ParseName("<TTF File Name>")
objFolderItem.InvokeVerb("Install")

例子：

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\Windows\Font")
Set objFolderItem = objFolder.ParseName("Myriad Pro.ttf")
objFolderItem.InvokeVerb("Install")

另一种选择是为当前用户会话安装“临时”字体。这个想法是fontview.exe为每种字体运行，这使它可用于其他 Windows 应用程序：

for /F "delims=;" %%a in ('dir C:\ExtraFonts /B /A-D-H-S /S') do fontview %%a

在此处查看完整的解决方案。

Answer 2

在 Powershell 中，这可以很简单：

$fonts = (New-Object -ComObject Shell.Application).Namespace(0x14)
dir fonts/*.ttf | %{ $fonts.CopyHere($_.fullname) }

Answer 3

与 GeneQ 的解决方案类似，这里有一个版本对脚本目录中的所有 .ttf 文件执行此操作：

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

Answer 4

您还可以使用FontReg实用程序从命令提示符安装字体。