AddFontResource

[Andidreas]

hallo zusammen...

ich hoff mal mein beitrag is hier im richtigen themen bereich gelandet ^^

über den befehl AddFontResource füge ich mir eine schriftart im windows system temporär hinzu

Delphi-Quellcode:

    giFontInst := AddFontResource(PChar(sFontFile));
    SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

beim schließen des programmes wird die schriftart über RemoveFontResource wieder entfernt

Delphi-Quellcode:

    RemoveFontResource(PChar(sFontFile));
    SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

wo fügt windows die font denn genau hinzu? im verzeichnis "C:\Windows\Fonts\" sehe ich sie definitiv nicht!
und auf der homepage von msdn steht nur

Zitat:

The AddFontResource function adds the font resource from the specified file to the system font table.

mich würde der genaue "pfad" interessieren wo die schriftart temporär hinzugefügt wird, denn in unserer firma haben die normalen benutzer nur eingeschränkte recht in windows und an diesen pc's funktioniert es nicht (ich vermute stark das hier berechtigungen fehlen)...
auf meinem notebook auf dem ich admin rechte habe funktioniert aber alles :-/

[SirThornberry]

Es wird keinen Pfad dafür geben. Die Schrift wird einfach nur (je nach Parameter) für die entsprechenden Prozesse registriert.
Oder kannst du die Schriftarten-Datei löschen nachdem du diese mit AddFontRessource hinzugefügt hast und die Schrift bleibt weiter verfügbar?

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

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