เป็นไปได้ แต่คุณต้องเขียนเชลล์เชลล์ของ 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
ดูโซลูชั่นที่สมบูรณ์ที่นี่