Twinsetter
Erfahrenes Mitglied
Hallo!
Ich verwende in einem Programm eine TrueType Schriftart, die nicht immer standardmäßig in Windows vorhanden ist. Damit die Ausgaben des Programmes korrekt erfolgen binde ich die Schriftart durch das Programm temporär ein. Hierzu habe ich im OnCreate-Ereignis des Hauptformulars folgenden Code plaziert:
Obiger Code wurde einem Tip von http://swissdelphicenter.ch entnommen und hat bisher auch problemlos funktioniert. Bei einem Anwender des Programmes bleibt das Programm aber jetzt genau an dieser Stelle hängen und zwar bei der 2. Zeile. Er benutzt XP. Ich habe es daraufhin getestet. Unter Win98 keine Probleme, Win2k leichter Hänger an dieser Stelle es geht aber weiter. Bei XP gibt es Installationen wo's funktioniert bei anderen wiederum nicht. Bootet man den Rechner neu kann es sein, daß es dann wieder funktioniert. Die XP Installationen scheinen aber auf den ersten Blick identisch.
Könnte es sein, daß sich Botschaften bei XP grundlegend geändert haben? Kennt sich hier jemand aus? Konnte selbst bisher nichts passendes finden. Auch eine Lösung, die nur für XP gilt wäre mir recht, da das Programm vorher das OS abfragt und ich daher auch je nach OS anders verzweigen könnte.
Danke schon mal im voraus
Ich verwende in einem Programm eine TrueType Schriftart, die nicht immer standardmäßig in Windows vorhanden ist. Damit die Ausgaben des Programmes korrekt erfolgen binde ich die Schriftart durch das Programm temporär ein. Hierzu habe ich im OnCreate-Ereignis des Hauptformulars folgenden Code plaziert:
Code:
AddFontResource(PChar(ExtractFilePath(ParamStr(0)) + 'matha___ttf'));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
Könnte es sein, daß sich Botschaften bei XP grundlegend geändert haben? Kennt sich hier jemand aus? Konnte selbst bisher nichts passendes finden. Auch eine Lösung, die nur für XP gilt wäre mir recht, da das Programm vorher das OS abfragt und ich daher auch je nach OS anders verzweigen könnte.
Danke schon mal im voraus