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:40:52
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 Ernesto (4632 intervenciones) el 06/11/2014 18:25:30
Leyendo el Registry, en el nodo Software (usuarios y sistema)
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

Visual Foxpro permite saber que Programas estan instalados en la Pc

Publicado por Jesus (85 intervenciones) el 06/11/2014 20:48:40
Mil Disculpas amigo pero no entiendo bien me dices LEYENDO EL REGISTRY pero desde Vfp o de donde ejecuto lo q dices ?
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

Visual Foxpro permite saber que Programas estan instalados en la Pc

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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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:51:21
Lo Probare y Te Aviso Mi Gracias
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