Hallo,
vielen Dank erstmal für die Antworten.
Das Problem ist ja, daß der Font kein Windows-Standardfont ist.
Sprich unter:
Code:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Fonts
wird mir folgendes angezeigt:
http://www.catbytes.de/fonts1.jpg
Und unter:
Code:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts
folgendes:
http://www.catbytes.de/fonts2.jpg
Wie man sieht ist vom Font "14 minutes" leider nichts zu sehen.
Witzig ist aber, was mir Word anzeigt:
http://www.catbytes.de/word_fontliste.jpg
Ich habe auch die gesamte Registry nach "minute" bzw. "minutes" durchsucht - Nichts
Es muß doch eine Möglichkeit geben, einen Fontdateinamen zu übergeben, aber trotzdem den Fontnamen herauszubekommen. Sonst hätte ja der ganze Befehl:
Code:
AddFontResource('14minute.ttf');
keinen Sinn, da ich ja nie damit arbeiten könnte - Fontname und Fontdateiname unterscheiden sich ja.
Übrigens: Nach dem Aufruf (und weiteren Routinen) entferne ich den Font natürlich mit:
Code:
RemoveFontResource('14minute.ttf');
wieder (trotzdem bleibt er in Word erhalten).
Sinn des ganzen: Ich baue gerade eine Fontseite im Netz auf. Für jeden Font brauche ich natürlich ein Vorschaubild - ich habe 3.000 Fonts vorliegen. Delphi soll nun jeden Font in einem bestimmten Verzeichnis kurz mit "AddFontResource" einbinden, ein Schnappschuß (*.JPG) wird geschossen, der Font wird mit "RemoveFontResource" wieder 'entladen' und ich habe mein Vorschaubild. So soll das ganze Verzeichnis durchgerattert werden. Admin-Rechte oder so wären also kein Problem, da das Programm sowieso nie meinen Rechner verlassen wird.
Hat noch jemand eine andere Idee?