Schrift temporär nutzen

[Schubi]

Also bei mir klappt das:

Delphi-Quellcode:

    AddFontResource(PChar(ExtractFilePath(Application.Exename)+'Dateien\Verdana.TTF'));
    AddFontResource(PChar(ExtractFilePath(Application.Exename)+'Dateien\Webdings.TTF'));
    AddFontResource(PChar(ExtractFilePath(Application.Exename)+'Dateien\Wingding.TTF'));
    AddFontResource(PChar(ExtractFilePath(Application.Exename)+'Dateien\WINGDNG2.TTF'));
    AddFontResource(PChar(ExtractFilePath(Application.Exename)+'Dateien\WINGDNG3.TTF'));
    SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);