Fontname aus *.TTF-Datei auslesen

[Catbytes]

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?