Версия ехе файла | |
---|---|
Барыга Автор Сообщений: 757 Откуда: Иркутск Дата регистрации: 04.09.2000 |
Состряпал ехе-шник
Прописал информацию о его версии Как ее тепереча оттель считать?? |
RE: Версия ехе файла | |
---|---|
BVL |
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" |
Это есть гут | |
---|---|
Барыга Автор Сообщений: 757 Откуда: Иркутск Дата регистрации: 04.09.2000 |
Спасибки
|
© 2000-2024 Fox Club  |