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;