FoxPro/Visual FoxPro - Visual Foxpro permite saber que Programas estan instalados en la Pc

   
Vista:

Visual Foxpro permite saber que Programas estan instalados en la Pc

Publicado por Jesus (85 intervenciones) el 06/11/2014 17:42:44
Estimados Amigos
Buenos Tardes queria saber si es que desde Visual Foxpro nos permite poder saber q programas estan
instalados en una Pc o Equipo de Computo y de alli poder generar un listado o reporte de lo tiene.

De antemano mil Gracias

Jesus
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Visual Foxpro permite saber que Programas estan instalados en la Pc

Publicado por Jose (94 intervenciones) el 07/11/2014 21:44:21
prueba esto

cCmdLine="command.com /c reg query HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall /s >c:\tmp\65898934.tmp"
DECLARE INTEGER WinExec IN kernel32 STRING cCmdLine, INTEGER nCmdShow
=WinExec(cCmdLine,0)
*a=1
DO WHILE FILE("c:\tmp\65898934.tmp")=.f.
* WAIT "Va: "+STR(a) WINDOW NOWAIT
* a=a+1
ENDDO
DO WHILE .t.
esta=FOPEN("c:\tmp\65898934.tmp",12)
IF esta<>-1
FCLOSE(esta)
EXIT
ENDIF
enddo
CREATE CURSOR TmpCur1 (mVar c(250))
APPEND FROM c:\tmp\65898934.tmp TYPE SDF
*BROWSE FOR mVar#" "
*BROWSE FOR LEFT(mvar,15)=" DisplayName"
COPY TO c:\tmp\tmpcur FOR LEFT(mvar,15)=" DisplayName" TYPE fox2x
USE c:\tmp\tmpcur
replace ALL mvar WITH SUBSTR(mvar,24,50)
IF thisform.check1.Value=1
DELETE FOR "(KB"$mvar
DELETE FOR "Security Update"$mvar
ENDIF
SELECT soft
ZAP
APPEND FROM c:\tmp\tmpcur
MESSAGEBOX("Proceso concluido puede saccar el reporte",0)
USE IN tmpcur
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Visual Foxpro permite saber que Programas estan instalados en la Pc

Publicado por Jesus (85 intervenciones) el 10/11/2014 14:59:07
Mil Gracias lo Probare y te aviso
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar