FoxPro/Visual FoxPro - CUANDO ESTA INSTALADA UNA APLICACION?

HOLA A TODOS NUEVAMENTE.

1. COMO HAGO QUE MI PROGRAMA SEPA QUE UNA APLICACION ESTA INSTALADA O NO?

2. COMO LEO EL REGISTRO DE WINDOWS DESDE MI PROGRAMA.

BUSQUE EN EL FORO DE DAVID T. AMADOR, Y UNAS RESPUESTAS QUE HABIA DADO, PERO ESO NO FUNCIONO, AL MENOS NO EN VFP7.

ALGUNA SUGERENCIA.

Hola que tal .... la aplicación que deseas comprobar que esta instalada soporta automatización... por ejemplo word, excel.....

Podrías hacero así ...

On Error =MessageBox("No instalada")
oObj = CreateObject("eee.rrr")
On Error

Si el aplicativo utilizo Windows Installer entonces :

Local oWInst
oWInst = Createobject("WindowsInstaller.Installer")

oProducts = oWInst.Products
For Each Product In oProducts
strName = oWInst.ProductInfo (Product, "ProductName")
strMinVer = oWInst.ProductInfo (Product, "VersionMinor")
strMaxVer = oWInst.ProductInfo (Product, "VersionMajor")
strVer = oWInst.ProductInfo (Product, "VersionString")
? strName + strMinVer + strMaxVer + strVer
Next

Sino soporta automatización entonces tendrías que buscar en el registro de Windows ... o utilizas WMI ...

David Amador Tapia
WebMaster "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia

GRACIAS POR RESPONDERME, DEL WMI, MODIFIQUE A ESTA FUNCION, PERO ME DETECTO LA APPLICACION, Y LUEGO EN UNA SEGUNDA CORRIDA, NO. POR ESO , LA INVALIDE.

Function Installed
PARAMETERS appname
objWMI = GetObject("winmgmts:\\")
cCadWMI = "Select * from Win32_Product Where Name = '"+appname+"'"
oColS = objWMI.ExecQuery(cCadWMI)
LOCAL instalada
For Each oSoft in oColS
instalada=.t.
exit
Next
RETURN instalada

DE LA SEGUNDA OPCION QUE ME PLANTEASTE, FUNCIONA CORRECTAMENTE Y EN UN BUEN TIEMPO, PERO SOLO PARA LAS APPLICACIONES QUE ESTAN EN EL INSTALADOR DE WINDOWS, Y PARA EL CASO DE OFFICE, NO PODRIA DECIRME SI MS-WORD HA SIDO INSTALADO O NO, YA QUE SOLO ME DIRIA SI OFFICE ESTA INSTALADO, Y DE OFFICE PUEDES INSTALAR LO QUE DESEES Y SEGUIRIA DICIENDO QUE OFFICE ESTA INSTALADO.

LA PRIMERA OPCION, FUNCIONA, PERO TIENE EL PROBLEMA DE QUE ES MUY LENTA , YA QUE INVIERTE MUCHO TIEMPO AL CREAR LOS OBJETOS.

ESTOY INDAGANDO A VER COMO LEO EL REGISTRO DE WINDOWS, Y HACER UNA QUE SEA GENERAL, Y ME DIGA SI HA SIDO INSTALADA, AUNQUE NO ESTE EN EL WINDOWS INSTALLER, PERO , CREO QUE TODAS LAS APLICACIONES INSTALADAS, TIENEN UN ARCHIVO ASOCIADO A CADA EXTENSION, LO QUE ME PERMITIRIA SABER SI HAY ALGUNA APLICACION INSTALADA.

TAMBIEN TENGO OTRAS OPCIONES CON EL REGISTRO, PERO PRIMERO TENGO QUE PODER HACER UNA BUSQUEDA EN EL , Y LEER EN EL .

GRACIAS POR AYUDARME.

-Si te refieres a tu aplicacion y usas un instalador como Installshield el detecta tu aplicacion.

-
http://www.sopaul.com.ar/cursos/vfoxpro/vfp_api6.htm