Windowsコマンドプロンプトからフォントをインストールするにはどうすればよいですか？

Windowsのコマンドプロンプトからフォントをインストールすることはできますか？はいの場合、コマンドは何ですか？

試してみたところcopy [fontname].ttf C:\Windows\Fonts\、コピーは完了したと書かれていましたが、Fontsフォルダーでそのフォントを見つけることも、プログラムのフォントリストで見つけることもできなかったため、確実に機能しませんでした。（私は後でFontsフォルダーから上記のフォントを削除できましたが）

可能ですが、それを行うにはWindowsシェルスクリプトを作成する必要があります。コピーだけではフォントはインストールされません。たとえば、フォントを登録する必要もあります。

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

完全なソリューションはこちらをご覧ください。

Powershellでは、これは次のように簡単にできます。

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

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

FontRegユーティリティを使用して、コマンドプロンプトからフォントをインストールすることもできます。

私の場合、InstallFonts.vbsというスクリプトファイルを作成し、C：\ PortableApps \ InstallFonts \に配置します。次のコードでは、「SomeUser」をフォントをインストールできるユーザーのユーザー名に置き換えます。次に、デスクトップに適切な「フォントのインストール」フォルダーを作成します。

    Set ofso = CreateObject("Scripting.FileSystemObject")
'SourceFolder = ofso.GetParentFolderName(Wscript.ScriptFullName)
SourceFolder = "C:\Users\SomeUser\Desktop\Install Fonts"


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

次に、デスクトップに次のショートカットを作成します...

C:\Windows\System32\runas.exe /user:Administrator /savecred "wscript C:\PortableApps\InstallFonts\InstallFonts.vbs"

「管理者」を使用したことに注意してください。私はそれを有効にし、パスワードを割り当てました。これには任意の管理者アカウントを使用できると思います。初めてショートカットを実行するとき、管理者パスワードの入力を求められます。

パスワードの入力を求められない場合は、cmdプロンプトからショートカットを実行してください。

昇格したコードを実行するために使用できる場合のように、これがどれほど安全であるかをお約束することはできません。しかし、それは解決策です。

先にGeneQで述べたように、これがあなたの進め方です（私はそれをテストしました）

1. 管理者権限でコマンドラインを開きます
2. 次のコマンドを使用します。

/ F "delims =;"の場合 ％a in（ 'dir C：\ FontsDir / B / ADHS / S'）do fontview％a

C：\ FontsDirは、tffファイルが保存されているディレクトリです。実行されると、「fontview」ウィンドウが「FontsDir」ディレクトリ内のtffファイルの数だけ開かれます。「インストール」ボタンをクリックするだけで、そこにいます！フォントがシステムにインストールされている

それが誰かを助けることを願っています

Windowsのバージョンはリストしませんでしたが、Vistaまたは7を実行していると想定しています。そのディレクトリにコピーするには管理者権限が必要です。もう一度やり直してくださいが、今回は昇格したコマンドプロンプトのインスタンスを使用します。

再起動せずにフォントをインストールする方法を見つけるのに多くの時間を費やしました。最後に、これを見つけました：ClickFont。簡単で正確なソリューションです。

ClickFontを使用すると、システムのどこからでも、マウスを2回クリックするだけでTrueType、OpenType、およびPostScriptフォントを簡単にインストールできます。必要なのは、フォントまたはフォルダーを右クリックするだけです。