Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Mozilla FireFox
Message
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Environment versions
Visual FoxPro:
VFP 9 SP2
Miscellaneous
Thread ID:
01397925
Message ID:
01397954
Views:
89
Sergey ,

it 's wonderfull !
see attachment...

Big thank

>The following code works on my PC with FF 3.0. YMMV.
>
>#DEFINE HKEY_LOCAL_MACHINE -2147483646
>#DEFINE SW_SHOWNORMAL 1
>
>loReg = NEWOBJECT("Registry", "registry.prg")
>loReg.Readregistrystring(HKEY_LOCAL_MACHINE, "SOFTWARE\Mozilla\Mozilla Firefox", "CurrentVersion")
>lcFFSubKey = "SOFTWARE\Mozilla\Mozilla Firefox"
>lcFFCurVer = loReg.Readregistrystring(HKEY_LOCAL_MACHINE, lcFFSubKey, "CurrentVersion")
>IF ISNULL(lcFFCurVer)
>	? "FireFox is not present"
>	RETURN .F.
>ENDIF
>lcFFExe = loReg.Readregistrystring(HKEY_LOCAL_MACHINE, ;
>			lcFFSubKey + "\" + lcFFCurVer + "\Main", "PathToExe")
>IF ISNULL(lcFFExe)
>	? "Cannot determine the current version of FireFox"
>	RETURN .F.
>ENDIF
>
>DECLARE INTEGER ShellExecute IN "Shell32.dll" ;
>	INTEGER hwnd, STRING lpVerb, STRING lpFile, ;
>	STRING lpParameters, STRING lpDirectory, LONG nShowCm
>	
>ShellExecute(0, "", lcFFExe, "", "", SW_SHOWNORMAL)	
>

>It uses registry class http://www.berezniker.com/files/registry.zip which you can replace with your own .
>
>>
>>If mozilla is not the default Web Browser ?
>>
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform