AddFontResource

[DeddyH]

Auch wenn das wohl das Problem nicht löst würde ich den Code ein wenig umformulieren.

Delphi-Quellcode:

  sFontFile := ExtractFilePath(Application.ExeName) + 'MyFont.ttf';
  If FileExists(sFontFile){ = True *tztz*} Then
  Begin
    giFontInst := AddFontResourceEx(PChar(sFontFile), FR_PRIVATE, 0);
    if giFontInst > 0 then
      //Ist das eigentlich bei "privaten" Fonts notwendig?
      SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
  End;

[Andidreas]

jaja ich weiß... auf true nicht abfragen

das sendmessage hab ich mal testweise rausgenommen... hatte keine auswirkung :-/

[himitsu]

Zitat:

SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

Eventuell an die eigene Anwendung (Application.Handle) senden ... falls implementiert ist, daß Delphi seine Cache (falls es eine nutzt und falls es auf diese Message hört) neu aufbaut.

Darum soll er ja selber mal die Fonts auflisten und nachschauen, ob Er dort mit drin ist.

[Andidreas]

das finde ich jetzt sehr merkwürdig...
durch die ganze rumspielerei funktioniert auf meinem admin notebook nicht mal mehr das addfontresource...