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