>#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) >