Home » Tipps & Tricks » System » Systemfunktionen » Fonts installieren und deinstallieren
Fonts installieren und deinstallieren
Um TTF-Fonts zu installieren, muss man an die folgenden Funktionen den Dateinamen der TTF-Datei übergeben.Sollen die Fonts dauerhaft installiert werden, so ist ein vorheriges Kopieren in das entsprechendeFonts-Verzeichnis anzuraten.
function RegisterFont(Datei: String): String; { erstellt zuerst eine FOT-Datei und installiert diese dann } var FotName: String; bErg: Boolean; iErg: Integer; a, b: Array[0..128] of Char; begin Result:=''; FotName:=ChangeFileExt(Datei, '.FOT'); StrPCopy(A,FotName); StrPCopy(B, Datei); if not fileExists(Fotname) then bErg:=CreateScalableFontResource(0, a, b, '') else bErg:=true; if bErg then begin iErg:=AddFontResource(A); if iErg>0 then begin SendMessage(hwnd_broadcast, wm_fontchange, 0,0); Result:=FotName; end; end; end; function RemoveFont(Datei:String): boolean; begin result:=RemoveFontResource(PChar(Datei)); SendMessage(hwnd_broadcast, wm_fontchange, 0, 0); end;
Ein Gedanke zu „Fonts installieren und deinstallieren“
Kommentare sind geschlossen.
Hallo!
Danke, dass ihr diesen Code online gestellt habt. Er hat mir sehr geholfen.
Eine Ergänzung dazu für alle, die auf diesen Artikel stoßen: (Zumindest unter Windows 7) ist es nicht notwendig, dass man die FOT-Datei erstellt. Eine TTF-Datei lässt sich direkt in die Funktion AddFontResource übergeben. Steht auch so in dem MSDN.
Beste Grüße und Viel Erfolg!
Markus Effenberger