Mümkün, ancak bunun için bir Windows kabuk betiği yazmanız gerekiyor. Yalnız kopyalamak fontu yüklemez: ayrıca fontu kaydetmeniz gerekir, örn.
copy "FontName.ttf" "%WINDIR%\Fonts"
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts" /v "FontName (TrueType)" /t REG_SZ /d FontName.ttf /f
Alternatif olarak ihtiyaçlarınızı karşılamak için aşağıdaki kod satırlarını da kullanabilirsiniz; Bir .vbs dosyası olarak kaydedin ve sonra yürütün.
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("<Folder or Share Location>")
Set objFolderItem = objFolder.ParseName("<TTF File Name>")
objFolderItem.InvokeVerb("Install")
Örnek:
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\Windows\Font")
Set objFolderItem = objFolder.ParseName("Myriad Pro.ttf")
objFolderItem.InvokeVerb("Install")
Diğer bir alternatif, sadece geçerli kullanıcı oturumu için "geçici" yazı tiplerini yüklemektir. Fikir, fontview.exe
diğer Windows uygulamaları için kullanılabilir kılan her yazı tipi için çalıştırılmasıdır :
for /F "delims=;" %%a in ('dir C:\ExtraFonts /B /A-D-H-S /S') do fontview %%a
Burada tam çözüme bakın .