Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для gora

Ушёл из жизни


Сообщения: 6021
Благодарности: 3491

Профиль | Отправить PM | Цитировать


Цитата g7r7s7:
актуален механизм проверки версии перед установкой, чтобы установщик не сносил более новую версию. »
Проверка наличия и версии установленных Flash в х64 системе. Встраивание механизма на усмотрение автора...
Код: Выделить весь код
@Echo Off
SetLocal EnableDelayedExpansion

Set NewVer=11.0.1.152
For /F "tokens=1-4 delims=." %%i In ("%NewVer%") Do Set Nver1=%%i& Set Nver2=%%j& Set Nver3=%%k& Set Nver4=%%l
Echo NewVer=%Nver1%.%Nver2%.%Nver3%.%Nver4%

Set PathInst_x86=SysWOW64
Set PathInst_x64=System32
Set flag=0
Call :_Proc "%PathInst_x86%"
If %flag%==0 Call :_Proc "%PathInst_x64%"
Del CurVer.txt
Echo.
If %flag%==1 (Echo Setup NEW version) Else Echo Setup aborted. Installer does not have NEW version
Pause>Nul

:_Proc
Set nameFile=
For %%i In ("%SystemRoot%\%~1\Macromed\Flash\*.ocx") Do Set nameFile=%%i
If Not Exist "%nameFile%" Set flag=1 & GoTo :EOF
Echo %nameFile%
WMIC datafile where name='%nameFile:\=\\%' get version>CurVer.txt
For /F "tokens=1-4 skip=1 delims=." %%i In ('Type CurVer.txt') Do Set ver1=%%i& Set ver2=%%j& Set ver3=%%k& Set ver4=%%l& Set ver4=!ver4: =!
Echo CurVer=%ver1%.%ver2%.%ver3%.%ver4%
For /L %%a In (1,1,4) Do (
	If !Nver%%a! GTR !ver%%a! Set flag=1 & GoTo :EOF
	If !Nver%%a! LSS !ver%%a! GoTo :EOF
)
GoTo :EOF

Последний раз редактировалось gora, 06-10-2011 в 11:12.

Это сообщение посчитали полезным следующие участники:

Отправлено: 11:07, 06-10-2011 | #276