AddFontResource

[Andidreas]

Zitat von SirThornberry:

Oder kannst du die Schriftarten-Datei löschen nachdem du diese mit AddFontRessource hinzugefügt hast und die Schrift bleibt weiter verfügbar?

nein... die schriftart wird nicht unter C:\Windows\Fonts\ aufgelistet... wüsste nicht wo ich die sonst noch suchen müsste...

Zitat von Bernhard Geyer:

Für deinen Anwendungsfall wäre die Ex-Version sinnvoller.
Die "normale" wird Adminrechte benötigen damit der Font Systemweit registriert werden kann.

ich hab es gerade mit der AddFontResourceEx funktion getestet... mit dieser funktion zeigt er mir auch auf meinem admin notebook die korrekte schriftart nicht an... bei dem "font characteristic" parameter habe ich beide möglichen parameter (FR_PRIVATE und FR_NOT_ENUM) ausprobiert immer mit dem ergebnis das mein programm die schriftart nicht zur verfügung hatte...

habt ihr noch ideen wie ich mein rechte problem umgehen kann?

[himitsu]

Zitat von AddFontResource > Return Value:

If the function succeeds, the return value specifies the number of fonts added.

If the function fails, the return value is zero. No extended error information is available.

Blöd ist, daß man hier GetLastError vergessen kann,
aber es wäre dennoch nicht schlecht, wenn man das Result wenigstens mal auswerten würde.

Zitat:

The AddFontResource function adds the font resource from the specified file to the system font table. The font can subsequently be used for text output by any application.

To mark a font as private or not enumerable, use the AddFontResourceEx function.

...

This function installs the font only for the current session

Und der Font ist für alle Programme "registriert", welche im selben Benutzerkontext laufen ... bis zum Shoutdown/Reboot, oder bis RemoveFontResource(Ex).

[Andidreas]

@himitsu
das hilft mir jetzt aber auch net wirklich weiter

[himitsu]

Bei FR_NOT_ENUM wird der Font auch nirgendwo aufgelistet ... genau das bedeutet ja diese Optionen.
Hier kann man nur direkt den Fontnamen angeben, ohne ihn aus einer "enumerierten" Liste auszuwählen.

Was sagt nun Result?
0?

Kann die Datei gefunden werden?

Nutzt du relative oder absolute Pfade?

...

[Andidreas]

die datei wird gefunden, ansonsten käme er in meinem programm nicht zu der stelle wo ich den addfontresourceex ausführe... hier mal mein code:

Delphi-Quellcode:

  sFontFile := ExtractFilePath(Application.ExeName) + 'MyFont.ttf';
  If FileExists(sFontFile) = True Then
  Begin
    giFontInst := AddFontResourceEx(PChar(sFontFile), FR_PRIVATE, 0);
    SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
  End;

wenn ich grad nicht total auf dem schlauch stehe verwende ich absolute dateipfade...
gifontinst ist nach AddFontResourceEx gleich 1 d.h. ja laut msdn das er die font hinzugefügt hat...

[himitsu]

OK, abgesehn von dem = true , welches man nicht machen sollte ...
If FileExists(sFontFile) Then und wenn nicht, dann mit If not ... .


Kannst du diesen über EnumFonts finden?

[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.

[SirThornberry]

Zitat von Andidreas:

Zitat von SirThornberry:

Oder kannst du die Schriftarten-Datei löschen nachdem du diese mit AddFontRessource hinzugefügt hast und die Schrift bleibt weiter verfügbar?

nein... die schriftart wird nicht unter C:\Windows\Fonts\ aufgelistet... wüsste nicht wo ich die sonst noch suchen müsste...

Ich glaub du hast mich da falsch verstanden. Du übergibst der Funktion "AddfontRessource" doch einen Dateinamen. Und meine Frage war jetzt ob du die Datei, welche du übergibst, löschen kannst nachdem du AddFontRessource aufgerufen hast.