Einzelnen Beitrag anzeigen

Schubi

Registriert seit: 4. Nov 2003
Ort: Happurg (Nürnberg)
331 Beiträge
 
Delphi 2006 Professional
 
#1

Programm hängt bei AddFontResource

  Alt 2. Feb 2005, 09:33
Hallo zusammen!
hab jetzt vermehr Probleme mit einem Programm was schon ewig im Einsatz ist.
Und zwar installiere ich beim starten des Programms temporär ein paar Schriftarten.
Folgender Code:
Delphi-Quellcode:
Try
  AddFontResource(PChar(EXEPath+'Dateien\Verdana.TTF'));
  AddFontResource(PChar(EXEPath+'Dateien\Webdings.TTF'));
  AddFontResource(PChar(EXEPath+'Dateien\Wingding.TTF'));
  AddFontResource(PChar(EXEPath+'Dateien\WINGDNG2.TTF'));
  AddFontResource(PChar(EXEPath+'Dateien\WINGDNG3.TTF'));
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
except
end;
Das Problem: Auf manchen Rechnern (3 an der Zahl) dauern diese 6 Zeilen 2 Minuten, auf einem anderen Rechner hängt sich mein Programm auf ewig auf! Auf anderen Rechnern funktioniert der Code problemlos!

Woran kann das liegen?
Das Programm bleibt einfach stehen...

Hat irgendjemand ne Idee?

Gruß,

Schubi
Christian Schubert
Ich fange gerade erst an, den Umfang meiner Ahnungslosigkeit zu begreifen...
  Mit Zitat antworten Zitat