[XCV]

Один компонент для установки »

Создал скрипт, вот его часть:
Section "!${PRODUCT_NAME}"
SectionIn 1 2 3 RO
SetOutPath "$INSTDIR"
File /r "prog\*.*"
WriteUninstaller "$OUTDIR\uninst.exe"
WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayName" "$(^Name)"
WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayIcon" "$OUTDIR\prog.exe"
WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "UninstallString" "$OUTDIR\uninst.exe"
WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayVersion" "${PRODUCT_VERSION}"
SectionEnd
;=================================================================================================== ======================
SectionGroup "Цветовая тема оформления"
Section /o "Белая" ID_1
SetOutPath "$INSTDIR"
File /r "White\*.*"
SectionEnd
Section "Чёрная" ID_2
SetOutPath "$INSTDIR"
File /r "Black\*.*"
SectionEnd
SectionGroupEnd
Function .onSelChange
!insertmacro StartRadioButtons $1
!insertmacro RadioButton ${ID_1}
!insertmacro RadioButton ${ID_2}
!insertmacro EndRadioButtons
FunctionEnd

По идее всё нормально, при инстоляции по умолчанию "Чёрная" "Цветовая тема оформления", но если попытаться переставить галочку на "Белая" то галочка вместо того чтобы пропасть с "Чёрная" пропадает с "!${PRODUCT_NAME}", и вернуть её туда не удаётся , хотя при повторном нажатиии на "Белая" галочка с "Чёрная" пропадает, но на "!${PRODUCT_NAME}" не появляется. Подскажите в чем моя ошибка плиз...

[K.A.V.]

XCV, добавьте в конец .onInit функции строку

Код:

StrCpy $1 ${ID_2}

Пример

читать дальше »

Код:

 Function .onInit
  StrCpy $1 ${ID_2}
 FunctionEnd

[Oput]

Помогите плиз решить задачу:
1. Надо устанавливать кучу компонентов но 2 из них для своей работы требуют стороний продукт. создаю вот такую группу:

Код:

SectionGroup /e group1
Section "component 1" id1
SectionEnd
SectionGroupEnd

SectionGroup /e group2
Section "component 2" id2
SectionEnd
SectionGroupEnd

Section "service"
SectionEnd

Мне надо если пользователь чекнит группу "component 1" или "compenent 2" или 2 группы сразу, то что бы секция "service" тоже чекалась а если анчекнит две сразу то тоже что бы анчекалась.
знаю что надо подписаться на .onSelChange а вот что написать внутри - без понятия.

2. установку service можно проверить через реестр и допустим если он уже стоит надо пропускать его установку. это можно на этапе самой установки, т.е галочка чекнута а по реестру видим что всё стоит то просто пропустить.

[K.A.V.]

Мне надо если пользователь чекнит группу "component 1" или "compenent 2" или 2 группы сразу, то что бы секция "service" тоже чекалась а если анчекнит две сразу то тоже что бы анчекалась. знаю что надо подписаться на .onSelChange а вот что написать внутри - без понятия. »

немного попозже думаю напишу (просто сейчас занят немного исправлением ошибок своего твикера)

2. установку service можно проверить через реестр и допустим если он уже стоит надо пропускать его установку. это можно на этапе самой установки, т.е галочка чекнута а по реестру видим что всё стоит то просто пропустить. »

Ну ведь это легко...просто сделаем метку в конце секции, на которую переходить если служба уже существует...например

Код:

Section "MyService"
Предположу, что системное имя нашей службы MyService, а отображаемое - "Моя служба"
; Определяю, установлена ли служба, читая значение ключа, которое отображает полное имя нашей службы
ReadRegStr $0 HKLM "SYSTEM\CurrentControlSet\Services\MyService" "DisplayName"
StrCmp $0 "Моя служба" NoServiceInstall 0
##########
# Код установки службы
##########
NoServiceInstall:
SectionEnd

[Oput]

первое вроде как реализовал, вернее нашёл пример на nsis. За второе ОГРОМНОЕ спасибо. Может кому пригодиться:

Код:

Section "Section 2" Sec2
SectionEnd
 
SectionGroup "s1" Sec3
Section "Section 3"
ExecWait "cmd"
SectionEnd
SectionGroupEnd

SectionGroup "s2" Sec4
Section "Section 4"
SectionEnd
SectionGroupEnd

Function .onInit

  # This is necessary otherwise Sec3 won't be selectable for the first time you click it.
  SectionGetFlags ${Sec2} $R0
  IntOp $R0 $R0 & ${SF_SELECTED}
  StrCpy $IndependentSectionState $R0

FunctionEnd

Function .onSelChange
Push $R0
Push $R1

  # Check if Sec2 was just selected then select Sec3 and Sec4.
  SectionGetFlags ${Sec2} $R0
  IntOp $R0 $R0 & ${SF_SELECTED}
  StrCmp $R0 $IndependentSectionState +3
    StrCpy $IndependentSectionState $R0
  Goto UnselectDependentSections
    StrCpy $IndependentSectionState $R0

  Goto CheckDependentSections

  # Select Sec2 if Sec3 or Sec4 was selected.
  SelectIndependentSection:

    SectionGetFlags ${Sec2} $R0
    IntOp $R1 $R0 & ${SF_SELECTED}
    StrCmp $R1 ${SF_SELECTED} +3

    IntOp $R0 $R0 | ${SF_SELECTED}
    SectionSetFlags ${Sec2} $R0

    StrCpy $IndependentSectionState ${SF_SELECTED}

  Goto End

  # Were Sec3 or Sec4 just unselected?
  CheckDependentSections:

  SectionGetFlags ${Sec3} $R0
  IntOp $R0 $R0 & ${SF_SELECTED}
  StrCmp $R0 ${SF_SELECTED} SelectIndependentSection

  SectionGetFlags ${Sec4} $R0
  IntOp $R0 $R0 & ${SF_SELECTED}
  StrCmp $R0 ${SF_SELECTED} SelectIndependentSection

  Goto End

  # Unselect Sec3 and Sec4 if Sec2 was unselected.
  UnselectDependentSections:

    SectionGetFlags ${Sec3} $R0
    IntOp $R1 $R0 & ${SF_SELECTED}
    StrCmp $R1 ${SF_SELECTED} 0 +3

    IntOp $R0 $R0 ^ ${SF_SELECTED}
    SectionSetFlags ${Sec3} $R0

    SectionGetFlags ${Sec4} $R0
    IntOp $R1 $R0 & ${SF_SELECTED}
    StrCmp $R1 ${SF_SELECTED} 0 +3

    IntOp $R0 $R0 ^ ${SF_SELECTED}
    SectionSetFlags ${Sec4} $R0

  End:

Pop $R1
Pop $R0
FunctionEnd

[XCV]

надо чтобы инстолятор nsis перед началом установки проверил установлен ли в системе к примеру netframework или другой нужный компонент (его наличие можно проверить по определённому файлу или ключу в реестре), и затем выдал окошко в котором предложил бы: если компонет установлен то переустановить его или продолжить установку, а если нет то установить его...
возможно ли это реализовать?

[hb860]

Код:

ReadRegStr $R0 HKLM "Software\МойСофт" "МойАдскийКлюч"
StrCmp $R0 "Значение ключа" lblKeyExists 0

MessageBox MB_ICONQUESTION|MB_YESNO  "АХТУНГ!. Нету ключа реестра. Будем ставить компонент?" IDYES 0 IDNO lblSkipSetup
ExecWait 'команда установки'
goto lblSkipSetup

lblKeyExists:
MessageBox MB_ICONQUESTION|MB_YESNO  "АХТУНГ!. Есть ключ рееста. Переставим компонент?" IDYES 0 IDNO lblSkipSetup
ExecWait 'Команда перестановки'

lblSkipSetup:
......

Вот как то так

[Vsirf]

Какая проблема в етом файле:

читать дальше »

Код:

GetDlgItem 32 74 78
CreateFont 33 -37 -38 83 0
SendMessage -1 91 95 87 85 0
GetDlgItem 34 74 102
SerCtlColors 91 0 0
SerCtlColors 107 0 0
Call 120
SetFlag 13 0
File $PLUGINSDIR\modern-header.bmp
SetBrandingImage 111
GetDlgItem 35 74 133
SerCtlColors 138 0 0
GetDlgItem 36 74 142
SerCtlColors 147 0 0
GetDlgItem 38 74 151
SerCtlColors 156 24 0
GetDlgItem 37 74 160
SerCtlColors 165 24 0
SendMessage -1 165 174 85 169 2
GetDlgItem 39 74 181
GetDlgItem 40 74 186
GetDlgItem 41 74 191
GetDlgItem 42 74 193
GetDlgItem 43 74 195
Return
Return
Return
WriteINIStr 197 206 -40 221
WriteINIStr 240 216 -41 221
WriteINIStr 248 216 -42 221
WriteINIStr 256 216 -43 221
WriteINIStr 264 216 -44 221
WriteINIStr 272 216 -45 221
WriteINIStr 280 216 -46 221
WriteINIStr 288 216 -47 221
WriteINIStr 296 216 -48 221
WriteINIStr 304 216 -49 221
WriteINIStr 272 312 318 221
WriteINIStr 280 312 345 221
WriteINIStr 288 312 390 221
WriteINIStr 296 312 446 221
WriteINIStr 483 216 492 221
WriteINIStr 511 216 520 221
WriteINIStr 533 216 542 221
WriteINIStr 553 216 562 221
GetDlgItem 12 74 193
ShowWindow 573 85
GetDlgItem 12 74 195
ShowWindow 573 85
Push $0
Call 120
File $PLUGINSDIR\InstallOptions.dll
SetFlag 13 0
Push $PLUGINSDIR\NS Welcome.ini
RegisterDLL $PLUGINSDIR\InstallOptions.dll dialog 0
Pop $0
Pop $0
Return
Call 120
SetFlag 13 0
IfFileExists $WINDIR\NiwradSoft Shell Pack\Tools 65 0
MessageBox 16 643 0 0 0
ShellExecute 719 318 0 1
Quit
ReadRegStr 0 2147483650 756 787 0
StrCmp  "$0" "1" 0 69 0
ShellExecute 719 318 0 1
WriteReg 2147483650 756 787 85 1
File $PLUGINSDIR\NS Welcome.ini
File $PLUGINSDIR\niwradsoft.bmp
File $PLUGINSDIR\un.bmp
File $PLUGINSDIR\up.bmp
File $PLUGINSDIR\user.bmp
IfFileExists $WINDIR\NiwradSoft Shell Pack\Tools\NS Welcome.exe 77 0
WriteINIStr 304 852 858 221
Goto 80
ReadRegStr 0 2147483650 867 913 0
StrCmp  "$0" "$WINDIR\NiwradSoft Shell Pack\Tools\NS Welcome.exe" 0 80 0
WriteINIStr 304 312 191 221
Call 120
File $PLUGINSDIR\System.dll
SetFlag 13 0
Push kernel32::CreateMutexA(i 0, i 0, t 'NS Welcome') i .r0 ?e
RegisterDLL $PLUGINSDIR\System.dll Call 0
Pop $0
StrCmp  "$0" "0" 103 0 0
Assign 0 -3
IntOp 0 577 191 0
FindWindow 1 1010 0 85 1017
IntCmp 1017 85 102 0 0 0
Call 120
File $PLUGINSDIR\System.dll
SetFlag 13 0
Push user32::GetWindowText(i r1, t .r2, i r0) i.
RegisterDLL $PLUGINSDIR\System.dll Call 0
StrCmp  "$2" "" 0 89 0
Call 120
File $PLUGINSDIR\System.dll
SetFlag 13 0
Push user32::SetForegroundWindow(i r1) i.
RegisterDLL $PLUGINSDIR\System.dll Call 0
Abort
Return
ReadINIStr 0 304 852 221
StrCmp  "$0" "DISABLED" 113 0 0
ReadINIStr 0 304 312 221
StrCmp  "$0" "1" 0 110 0
WriteReg 2147483650 867 913 805 1
Goto 113
ReadRegStr 0 2147483650 867 913 0
StrCmp  "$0" "$WINDIR\NiwradSoft Shell Pack\Tools\NS Welcome.exe" 0 113 0
DelReg 0 2147483650 867 913
SetOutPath $TEMP
Call 120
File $PLUGINSDIR\System.dll
SetFlag 13 0
Push 0
RegisterDLL $PLUGINSDIR\System.dll Free 0
Return
SetFlag 13 163
StrCmp  "$PLUGINSDIR" "" 0 130 0
Push $0
SetFlag 2 0
GetTempFileName  $TEMP
Delete 8 $0
SetOutPath $0
IfFlag 131 0 2 0
StrCpy $PLUGINSDIR "$0"
Pop $0
Return
MessageBox 2097168 1119 0 0 0
Quit
Return

[hb860]

Файлы дистрибутивов NSIS декомпиляции не подлежат. Уже неоднократно обсуждалось, что получить исходный NSI-файл не получится, максимум - извлечь файлы дистрибутива. Пишите свой скрипт, если нужна помощь, обращайтесь, поможем. Или выпросите скрипт у автора продукта, как вариант.

[volk1234]

Извиняюсь забыл сделать обьявление -
Посоветовавшись с предыдущим автором темы desperate сделал куратором темы (и новым автором темы) hb860
Предыдущий автор не мог уделять много времени поддержке этой темы.
Куратор может редактировать только шапку и свои сообщения -
в остальном все как обычно...