Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Install fonts with setup?
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00357737
Message ID:
00372535
Vues:
23
Hi Paul,

In our app, we used to run the following as part of a global update handler:

*-- Check for "FOXFONT". If !exists, copy to Windows system directory
*-- The following gets the systemdir
DECLARE integer GetSystemDirectory in Win32API String @ lpBuffer, integer uSize
cBuf=replicate(chr(0),255)
=GetSystemDirectory(@cBuf,len(cBuf))
cSystemDir=CopyZStr(cBuf)

IF !EXISTS(ALLT(cSystemDir)+"\FOXFONT.FON")
lbRetVal=UpdateFile( cDistPath+"FOXFONT.FON", ALLT(cSystemDir)+"\FOXFONT.FON")
ENDIF


*-- Actually, this is obsolete code, but you can get the idea. Instead of the GetSystemDirectory call, we use the registry class to find the 'CurrentVersion' key, and then copy foxfont to the fonts directory.

Works great. Let me know if this helps or hinders. If you have problems, I will gladly be more specific.

Regards,
Bob
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform