Screen.Fonts gibt nicht aktuelle Fontliste

[Memnarch]

Tag allerseits.

Wenn ich per copyfile eine fontdatei(ttf) in den windows fonts ordner kopiere, reagieren alle windows applikationen(wordpad, word etc) automatisch darauf und ergänzen ihre liste.

Screen.fonts tut das NICHT. Also hab ich mal die windows message WM_FONTCHANGE gesendet, und in meiner form darauf gelauscht. Wird die message getriggert, bekomme ich nochimmer die alte liste. Erst beim zweitenmal triggern bekomme ich die neue fontliste(zweites mal manuel getriggerd, also ist schon etwas zeit vergangen, per knopfdruck).

Hab auch schon versucht indem ich ResetFonts aufgerufen habe, damit er durch die fontliste enumeriert. Aber es bringt nichts. Wie kann ich auf solche Events richtig reagieren?
Wenn andere applikationen auf ein simples filecopy im FontOrdner reagieren, muss es doch auch per Delphi möglich sein oder nicht?

MFG
Memnarch