Fonts per Script in Windows Fonts Ordner installieren

[Rolle]

Huhu Leute, wie der Titel schon sagt möchte ich in meinem Programm Fonts verwenden, welche keine standard Fonts sind.
Gibt es eine Möglichkeit wie FileInstall oder per InetGet oder irgendwas die Fonts in den Windows Fonts Ordner zu installen ?
Wäre über Hilfe dankbar... Per Google und SuFu nur Sachen von 2008 gefunden nix hilfreiches bei.

Grüße

[Croco™]

Es ist zwar unsauber aber du könntest folgende .vbs Datei einfach vom Script editieren und dann ausführen lassen.

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

oder mit einer SHELL Datei.

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

[Rolle]

Danke für deine Antwort