Состряпал ехе-шник
Прописал информацию о его версии
Как ее тепереча оттель считать??

proc versiondetect
para lsFileName,lsEditVerInfo,lsVersion
SET LIBRARY TO "FOXTOOLS.FLL" ADDITIVE

thestring = ""
IF FILE(lsFileName)
DIMENSION averarray(12)
ntheval = GetFileVersion(lsFileName,@averarray)
IF ntheval = 0

IF NOT EMPTY(averarray(4))
lsVersion = ALLT(averarray(4))
else
lsVersion='N/A'
endif

IF NOT EMPTY(averarray(1))
thestring = "Comments: "+ ALLT(averarray(1))
ENDIF
IF NOT EMPTY(averarray(2))
thestring = thestring+chr(10)+"Company Name: "+ ALLT(averarray(2))
ENDIF
IF NOT EMPTY(averarray(3))
thestring = thestring+chr(10)+"File Description: "+ ALLT(averarray(3))
ENDIF
IF NOT EMPTY(averarray(4))
thestring = thestring+chr(10)+"File Version: "+ ALLT(averarray(4))
ENDIF
IF NOT EMPTY(averarray(5))
thestring = thestring+chr(10)+"Internal Name: "+ ALLT(averarray(5))
ENDIF
IF NOT EMPTY(averarray(6))
thestring = thestring+chr(10)+"Legal Copyright: "+ ALLT(averarray(6))
ENDIF
IF NOT EMPTY(averarray(7))
thestring = thestring+chr(10)+"Legal Trademarks: "+ ALLT(averarray(7))
ENDIF
IF NOT EMPTY(averarray(8))
thestring = thestring+chr(10)+"Original Filename: "+ ALLT(averarray(8))
ENDIF
IF NOT EMPTY(averarray(9))
thestring = thestring+chr(10)+"Private Build: "+ ALLT(averarray(9))
ENDIF
IF NOT EMPTY(averarray(10))
thestring = thestring+chr(10)+"Product Name: "+ ALLT(averarray(10))
ENDIF
IF NOT EMPTY(averarray(11))
thestring = thestring+chr(10)+"Product Version: "+ ALLT(averarray(11))
ENDIF
IF NOT EMPTY(averarray(12))
thestring = thestring+chr(10)+"Special Build: "+ ALLT(averarray(12))
ENDIF
IF EMPTY(thestring)
thestring = "No version information found for: "+allt(lsFileName)
ENDIF
ELSE
thestring = "No version information found for: "+allt(lsFileName)
lsVersion='N/A'
ENDIF
ELSE
=messagebox('xxx'+lsFileName)
ENDIF
lsEditVerInfo = ALLTRIM(thestring)
RELEASE LIBRARY "FOXTOOLS.FLL"

Спасибки