Fonts per Script in Windows Fonts Ordner installieren

09/09/2013 01:23 Rolle#1
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
09/09/2013 10:07 Croco™#2
Es ist zwar unsauber aber du könntest folgende .vbs Datei einfach vom Script editieren und dann ausführen lassen.

Quote:
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.

Quote:
copy "FontName.ttf" "%WINDIR%\Fonts"
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts" /v "FontName (TrueType)" /t REG_SZ /d FontName.ttf /f
[Only registered and activated users can see links. Click Here To Register...]
09/09/2013 12:57 Rolle#3
Danke für deine Antwort :)