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:
01397958
Views:
79
You're welcome.
Btw, the name of the browser is Mozilla FireFox.

>
>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 ?
>>>
--sb--
Previous
Reply
Map
View

Click here to load this message in the networking platform