Schriftarten von XBase aus überprüfen und installieren

[andreas]

Hallo Leute,

kennt jemand, wie ich unter Windows mit XBase-Programm überprüfen kann, ob bestimmte Schriftart installiert ist und notfalls diese auch installieren, ohne die Systemsteuerung manuell aufzurufen?

[brandelh]

Hallo Andreas,

es gibt in den Beispielen ein Programm das die Namen aller Schriftarten (Fonts) anzeigt. Anhand der Namen ist die Überprüfung möglich.

C:\ALASKA\XPPW32\SOURCE\samples\basics\FONT\fontdb.prg

Beim Installieren habe ich jetzt keine Ahnung.
Ich meine ich hätte als schon die TTF Datei einfach ins Fontverzeichnis kopiert. Ob dabei der Explorer aber eine Installation gemacht hat weiß ich nicht. Ist schon länger her.

[andreas]

Hallo Hubert,

das mit dem Prüfen der Schriftart funktioniert. Danke.

Jetzt wollte ich die Datei kopieren und überprüfe davor, ob das Verzeichnis existiert. Dabei bekomme ich immer FALSE.
Hier ist der Code:

Code: Alles auswählen

cWinDir := "C:\WINDOWS\FONTS\"
IF FExists((cWinDir), "D") = .f.
  msgbox(...)
else

endif

Bei directory(cWinDir+"*.*") bekomme ich aber die Werte.

Was mache ich falsch? Wieso wird Verzeichnis nicht erkannt? Ich habe doch diese Funktion schon öfters eingesetzt.

[Tom]

Hallo, Andreas.

\Windows\Fonts ist normalerweise "hidden" und oder "System". Deshalb antwortet "FExist" mit .F. Meines Erachtens gibt es eine API-Funktion, die mit dem Windows-Fonts-Verzeichnis antwortet (weil Windows ja nicht in "\Windows" installiert sein muß). Ich stöbere mal.

[Tom]

Keine API nötig:

Code: Alles auswählen

? GetEnv('windir')                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  

[Jan]

Andreas,

schau doch mal, wie Dein Windows-Verzeichnis heißt. Bei mir heißt das z. B. aus unerfindlichen Gründen WINNT und nicht WIndows.

Jan


Edit: Hey Tom, Vordrängeln, oder was?

[Tom]

Hey Tom, Vordrängeln, oder was?

Schulljung.

Code: Alles auswählen

cFontDir := GetEnv('windir')+'\fonts'

Das stimmt immer.

[brandelh]

cWinDir := "C:\WINDOWS\FONTS"
...
Directory(cWindir,"D") *** VERZEICHNIS !

Hallo schau mal genau hinten hin.
Du hast einen \ am Schluss. Das Verzeichnis FONTS liegt z.b. In Windows, dann muss man 'C:\WINDOWS\FONTS' abfragen. Oder man schaut ob Dateien drin sind, dann darf man aber kein "D" bei Directory() angeben.

Natürlich ist es besser den WINDIR Namen zu ermitteln, wie es die anderen vorgeschlagen haben. Aber wenn es dieses Verzeichnis gibt, brauchst du bei deinem ersten Code nur das letzte \ entfernen

HIDDEN Dateien findet man nur wenn man das H Attribut bei Directory() setzt. ABER normale Dateien in einem Hidden Ordner werden immer gefunden, solange der Ordner in der Pfadangabe enthalten ist. Das war schon zu Clipperzeiten so.

c:\...\HiddenDir\...\*.* liefert alle Dateien.

[andreas]

Hallo Tom und Jan,

mit der Umgebungsvariablen habe ich es auch gemacht und habe damit schon den richtigen Verzeichnis.
Es Stand ja auch oben, dass ich die Liste der Dateien mit Directory bekomme.
Nach dem ich jetzt alle Parameter FExists((cWinDir), "DHS") ausprobiert habe und immer die gleiche Antwort FALSE habe, habe ich meinen Code angepasst:

Code: Alles auswählen

cWinDir := "C:\WINDOWS\FONTS\"
IF len(directory(cWinDir+"*.*")) > 0
  msgbox(...)
else

endif 

Damit habe ich meine Funktion zum Kopieren der Dateien gebracht.

ABER! Obwohl die Datei im Verzeichnis vorhanden ist, erscheint der Font nicht in der Auswahlliste. Da macht Windows wohl mehr als nur die Dateien kopieren.

[Tom]

Hallo, Andreas.

Du kannst Fonts auch dann nutzen, wenn sie nicht im \Windows\Fonts-Verzeichnis liegen. Die hierfür nötige API-Funktion heißt "AddFontRessourceEx":

http://msdn2.microsoft.com/en-us/library/ms533937.aspx

[AUGE_OHR]

hi,

Damit habe ich meine Funktion zum Kopieren der Dateien gebracht.

aber auch nur weil du sicherlich Administrator Rechte hast. Als User
bekommt man eine ErrorMsg, also vorher einen Errorblock einbauen.

ABER! Obwohl die Datei im Verzeichnis vorhanden ist, erscheint der Font nicht in der Auswahlliste. Da macht Windows wohl mehr als nur die Dateien kopieren.

ich denke man muss zumindest neu booten bevor Windows es "merkt".

gruss by OHR
Jimmy

[brandelh]

Hi,

ich vermute eher, dass der Explorer beim Kopieren in das Verzeichnis noch einige Settings setzt.

[Jan]

Auch wenn das mit dem reboot stimmen sollte: Der klassische User von heute mag es nicht sonderlich, nach einer nicht systembedingten Softwareinstallation den Rechner neu zu starten. Wenn möglich sollte das Problem also besser anders gelöst werden.

Jan

[Tom]

Das mit dem Reboot ist m.E. blanker Unsinn. Man muß eine neue Schriftart mit AddFontRessourceEx() "registrieren", dann klappt's auch mit dem Nachbarn.

[brandelh]

Hi,

hast du mal ein Beispiel, wahrscheinlich haben wir das noch nie gemacht (ich brauche keine fremden Schriften ) ...

[AUGE_OHR]

hi,

Auch wenn das mit dem reboot stimmen sollte: Der klassische User von heute mag es nicht sonderlich, nach einer nicht systembedingten Softwareinstallation den Rechner neu zu starten.

Ich lassen dem User gar keine Wahl z.B. mit RunShell(... SHUTDOWN -r )
wird der Rechner neu gebootet (unter XP /W2K)

Aber ein normaler User hat kein Schreibrecht auf das \FONT Verzeichniss,
also muss schon bei der Installation vom Administrator der Font installiert
werden und der macht spätestens beim abmelden einen Reboot.

gruss by OHR
Jimmy

[andreas]

Hi,

hast du mal ein Beispiel, wahrscheinlich haben wir das noch nie gemacht (ich brauche keine fremden Schriften ) ...

Ein Beispiel wäre nicht schlecht. Ich habe schon mit AddFontResourceEx und AddFontResourceA versucht, bekomme aber immer 0 zurück. Lokale Adminrechte habe ich aber auf meinem PC.