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

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