Nun läuft mein Programm durch und die Schrift ist registriert
und auswählbar, aber sie wird nicht angezeigt.
Delphi-Quellcode:
res := TResourceStream.Create(hInstance, 'My_FONT', Pchar('UnicodeFont'));
res.SaveToFile('tituscbz.ttf');
res.Free;
AddFontResource(PChar('tituscbz.ttf'));
PostMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);