[BuZzOFF]

закрыть браузеры »

Я конечно очень не спец...
А если искать процессы по имени и "убивать"? Не канает?

Справочник по NSIS => Примеры кодов => Process.

извращенная логика »

Спасибо

[wolkow70]

А если искать процессы по имени и "убивать"? Не канает? »

Канает. Так и было. Только это не "хороший тон", хочу красиво сделать.

[kotkovets]

BuZzOFF, Чет у вас извращенная логика, проще-проще, вот на кой черт нужно еще:
silent mode и normal mode && silent original и normal original?
Не проще сделать всего лишь: silent mode && silent original, при оболочке - выбор, че ставить,
при тихом режиме заводить ключом ком.строки: silent mode или silent original
Хозяин барин:

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

Код:

SectionGroup /e "Тип установки"
Section /o "Обычная" secNormal
SectionEnd

Section "Тихая" secSilent
SectionEnd
SectionGroupEnd

Section "Оригинал" secOriginal
 ${If} ${SectionIsSelected} ${secSilent}
       MessageBox MB_OK "Original [Silent]" IDOK
 ${Else}
       MessageBox MB_OK "Original [Normal]" IDOK
 ${EndIf}
SectionEnd

Section /o "Mod" secMod
 ${If} ${SectionIsSelected} ${secNormal}
      MessageBox MB_OK "Mod [Normal]" IDOK
 ${Else}
       MessageBox MB_OK "Mod [Silent]" IDOK
 ${EndIf}
SectionEnd

Function .onSelChange
  !insertmacro StartRadioButtons $1
    !insertmacro RadioButton ${secNormal}
    !insertmacro RadioButton ${secSilent}
  !insertmacro EndRadioButtons

  !insertmacro StartRadioButtons $2
    !insertmacro RadioButton ${secOriginal}
    !insertmacro RadioButton ${secMod}
  !insertmacro EndRadioButtons
FunctionEnd

Function .OnInit
 StrCpy $1 ${secSilent}
 StrCpy $2 ${secOriginal}
FunctionEnd

wolkow70, скрипт какой-то древний китайский, покрыт несвежей пылью(но рабочий):
Если браузер найдется появится сообщение(для отладки добавил).
Вообще пускай юзер думает, че ему надо-то, поэтому лучше при запущенном браузере, сообщение
о запущенном браузере и выход из установщика - на мой взгляд оптимальный вариант.

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

Код:

!macro CloseProgram NameProgramm
   ${Do}
      Sleep 200
      FindWindow $0 "${NameProgramm}"
      ${IfThen} $0 == 0 ${|}${Break}${|}
      MessageBox MB_OK "Окошко -${NameProgramm}-" IDOK
      SendMessage $0 ${WM_CLOSE} 0 0 ;послать окну сообщение WM_CLOSE
      SendMessage $0 ${WM_DESTROY} 0 0 ;разрушить окно
   ${Loop}
!macroend
Function CloseProgram
   System::Store S
   ${Do}
      Sleep 200
      FindWindow $0 "IEFrame"
      ${IfThen} $0 == 0 ${|}${Break}${|}
      ;послать сообщение немедленно, вне очереди cообщений оконной поцедуры
      MessageBox MB_OK "ослика окошко найдено" IDOK
      System::Call "user32::PostMessage(ir0,i${WM_CLOSE},i0,i0)"
   ${Loop}
   !insertmacro CloseProgram "OperaWindowClass"
   !insertmacro CloseProgram "MozillaWindowClass"
   System::Store L
FunctionEnd

Function .onInit
   Call CloseProgram
FunctionEnd

[wolkow70]

wolkow70, скрипт какой-то древний китайский, покрыт несвежей пылью(но рабочий): Если браузер найдется появится сообщение(для отладки добавил). »

Нормально работает. Почему-то окно Mozilla три раза подряд появляется.

[kotkovets]

wolkow70, Это нормально, пробуйте так, более надежно и быстрее.
FindWindow вызывается в каждом цикле 50 раз с задержкой 2мс, при найденном окне - прерывание цикла.

Код:

!macro CloseProgram NameProgramm
  ${For} $1 1 50
     FindWindow $0 "${NameProgramm}"
     ${If} $0 != 0
        MessageBox MB_OK "Окошко -${NameProgramm}-" IDOK
        System::Call "user32::PostMessage(ir0,i${WM_CLOSE},i0,i0)"
        ${Break}
     ${EndIf}
     Sleep 2
  ${Next}
!macroend
Function CloseProgram
   System::Store S
   !insertmacro CloseProgram "IEFrame"
   !insertmacro CloseProgram "OperaWindowClass"
   !insertmacro CloseProgram "MozillaWindowClass"
   System::Store L
FunctionEnd

т.е при не найденных окнах - окошко установщика появится где то через 300 мс (если сообщение убрать)
При желании оттачивания надежности, время задержки можно увеличить и количество вызовов FindWindow

[wolkow70]

kotkovets,
Насколько подобная процедура применима к процессу деинсталляции программы? То есть, при удалении программы тоже надо закрывать браузеры.

[wolkow70]

kotkovets,
В последнем варианте Mozilla не гасится. В предложенном ранее варианте закрывалась надежно.

[kotkovets]

В последнем варианте Mozilla не гасится. В предложенном ранее варианте закрывалась надежно. »

Потому что, у браузера куча окон (скрытых, дочерних, модальных), - Почему-то окно Mozilla три раза подряд появляется
Второй вариант предназначен на одно окно.
кстати во 2 варианте попробуйте убрать макрос - ${Break}

Насколько подобная процедура применима к процессу деинсталляции программы? То есть, при удалении программы тоже надо закрывать браузеры. »

Насколько оно Вам надо то, не забудьте в деинсталляторе вызов функции через приставку - un

[wolkow70]

кстати во 2 варианте попробуйте убрать макрос - ${Break} »

Не помогает.
Вернулся к первоначальному варианту. Надежно закрывает пять запущенных копий Мозиллы (больше копий запускать не пробовал ).

[wolkow70]

Не могу решить одну задачку. Нужно внести при установке программы регистрационные данные из рег-файла.
На 32-битной системе все получается. На 64-битной чего только не шаманил, данные вносятся, но только в раздел HKLM32, а нужно в HKLM64

В скрипте так:

IfFileExists "$EXEDIR\reg.reg" 0 Done
${If} ${RunningX64}
execwait '$windir\SysWOW64\regedit.exe /s "$EXEDIR\reg.reg"'
${Else}
execwait '$windir\regedit.exe /s "$EXEDIR\reg.reg"'
${EndIf}
Done:

В рег-файле:

REGEDIT4

[HKEY_LOCAL_MACHINE\SOFTWARE\Ashampoo\Ashampoo UnInstaller 4]
"HLRegKEY"="xxxxxxx-xxxxxxx-xxxxxxxx"