Schriftfont nur in die eigene Anwendung zu laden?

[smart]

Hallo Alle!

Ist es möglich, einen bestimmten Schriftfont nur in die eigene Anwendung zu laden?

Gruß
Heike

[Luckie]

Ja. Pack die Schriftdatei in die Ressource, entpack sie zur Laufzeit auf die Festplatte (Temp-Verzeichnis des Benutzers) und ruf AddFontResource auf. Beim Beenden deiner Anwendung de-registrierst du sie wieder mit RemoveFontResource und löschst sie von der Festplatte.

[Balu der Bär]

Delphi-Quellcode:

// Füge Font hinzu  
AddFontResource(PChar('datei.ttf'));  
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);  

// Zum Löschen  
RemoveFontResource(PChar('datei.ttf'));  
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);

[smart]

Vielen Dank an Euch Beiden!
Ich sehe das doch richtig, ich brauche die Fonts dann nicht mehr in den ‚Schriftenordner’ packen, oder?

Gruß
Heike

[Luckie]

Genau. Und das WM_FONTCHANGE is nur nötig, wenn du andere Anwendungen darüber informieren willst, dass es neue Schriften gibt.

[Balu der Bär]

Nein, ist nicht erforderlich.