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
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only