Registriert seit: 1. Dez 2004
Ort: Köln
1.295 Beiträge
Delphi 12 Athens
|
AW: AddFontResource
2. Apr 2012, 15:33
Ist ein ziemlich alter Thread. Aber für mich war jetzt er aktuell und für andere vieleicht auch irgendwan mal. Deshalb hier meine Lösung:
Mein Programm soll eine Schrift temporär installieren und nutzen.
Bei folgendem Code blieb das Programm hängen.
SendMessage(hwnd_broadcast, wm_fontchange, 0, 0);
Auch wenn ich vorher keine Schrift mit AddFontRessource installiert habe, das Programm blieb an der Stelle hängen.
Habe dann statt einer "broadcast" die Nachricht nur an mein Programm selber gesendet, dann ist es durchgegangen. Und die Schrift konnte auch genutzt werden.
SendMessage(application.handle, wm_fontchange, 0, 0);
P.S.: Der Fehler passierte nur auf einigen WinXP-Rechnern.
Wie gesagt. Nur zur Info.
|