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

Показать сообщение отдельно
MKN MKN вне форума

Ветеран


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

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


Цитата Begin2Fly:
не хочет последнюю цифру рассказывать, получается просто "6." »
Сколько уже разговоров вокруг определения Win 8.1 ... А надо то всего получить две несчастные циферки 6 и 3
Для 99% практических надобностей, этого достаточно и не надо никаких WinVer.nsh

А получить эти циферки можно или как всегда :
Код: Выделить весь код
outfile GetOsVersion.exe
Section
  ClearErrors
   ReadRegStr $R0 HKLM "SOFTWARE\Microsoft\Windows NT\CurrentVersion" "CurrentVersion"
  MessageBox MB_OK "Номер версии OС :  $R0 "
SectionEnd
или
Код: Выделить весь код
outfile GetOsVersion.exe
 Section
  System::Call "kernel32.dll::GetVersion() i .r0"
  IntOp $4 $0 & 0xFF    ;main ver
  IntOp $5 $0 & 0xFF00    ;sub ver
  IntOp $5 $5 >> 8
  Push $5
  Push $4
  MessageBox MB_OK "Номер версии OС :  $4.$5      " 
SectionEnd
Это сообщение посчитали полезным следующие участники:

Отправлено: 11:52, 15-11-2013 | #756