Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Install fonts with setup?
Message
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00357737
Message ID:
00372535
Views:
22
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform