* GetVfpExeVersion.prg
*
* Ej. ?getvfpversion('programa.exe')
*
LPARAMETERS tcEXEName
LOCAL lcSig, lnHandle, lcVersion, lcBuffer, lnPos
lnHandle = FOPEN(tcEXEName, 0)
IF lnHandle < 0
RETURN "Unable to Open file"
ENDIF
lcSig = "VisualFoxProRuntime."
lcVersion = "(Unknown)"
lcBuffer = FREAD(lnHandle, 65535)
lnPos = AT(lcSig, lcBuffer)
IF lnPos > 0
lcVersion = "Vfp " + STRTRAN(SUBSTR(lcBuffer, lnPos + LEN(lcSig),2), CHR(0), "") + ".0"
ENDIF
=FCLOSE(lnHandle)
*
IF VERSION(2) = 2
MESSAGEBOX(lcVersion)
endif
*
RETURN lcVersion
Un saludo.