Font installieren

[Dietmar Elsässer]

Ich möchte einen Font installieren.
Dazu kopiere ich die ttf Datei in den Fontordner von Windos und führe danach folgenden Code aus:
result:= AddFontResource(PChar(Datei)) <> 0;
if result then
SendMessage(hwnd_broadcast, wm_fontchange, 0, 0);

Danach funktioniert der neue Font auch. Boote ich dann den PC, funktioniert der Font erst dann wieder, wenn ich mit dem Windows Exlorer den neuen Font im Fontsordner von Microsoft geöffnet habe.

Was mache ich falsch? Wie kann ich einen Font per Delphi-Programm installieren?

[Dietmar Elsässer]

Ergänzung: Der neue Font muss nicht geöffnet werden. Es reicht aus, wenn der Fontsordner geöffnet wird.

[Dietmar Elsässer]

So funktioniertes auf meinem Windows XP Testrechner:
function RegisterFont(const Datei: String): boolean;
begin
result:= AddFontResource(PChar(Datei)) <> 0;
if result then begin
// SendMessage(hwnd_broadcast, wm_fontchange, 0, 0);
ShellExecute(0, // Fontsordner öffnen
'explore',
PChar(ExtractFilePath(Datei)),
'',
'',
SW_SHOWMINIMIZED);
// Explorer wieder schliessen ?
end
end;

Ein bißchen komisch oder?