[архив].: NSIS

MKN · Отправлено: **15:21, 27-03-2012** | #**2451**

kotkovets, K.A.V., - спасибо за помощь и терпение...

Но всё же не даёт мне покоя, как из цикла извлекать значения каждого прохода (в файл ли или в переменные) ?
В поисках информации, которой нет, наткнулся на такой код :

Программа, выводящая песню о пиве (beer.nsi) ; Beer song. Written by Evgeny Stepanischev
Дело конечно не в песне, а в наглядности возможностей NSIS. Так вот - возможно ли из такого рода кода извлечь текст песни не DetailPrint_ом, а в обычный файл ? Как это сделать ?

Код:

Caption "Beer song"
OutFile "beer99.exe"
BrandingText "Beer song (Evgeny Stepanischev)"
ShowInstDetails show

!macro c
    StrCpy $2 ""
    Call PrintBeer
!macroend

Function PrintBeer
    IntCmp $1 0 no "" ""
    StrCpy $2 "$2$1"
    Goto +2
no:
    StrCpy $2 "$2No"
    StrCpy $2 "$2 bottle"
    IntCmp $1 1 nos "" ""
    StrCpy $2 "$2s"
nos:
    StrCpy $2 "$2 of beer"
FunctionEnd

Section ""
    StrCpy $1 99

loop:
    !insertmacro c
    StrCpy $2 "$2 on the wall, "
    Call PrintBeer
    DetailPrint "$2."
    DetailPrint "Take one and pass around,"
    IntOp $1 $1 - 1

    !insertmacro c
    DetailPrint "$2 on the wall."
    DetailPrint ""
    IntCmp $1 0 "" loop loop

    DetailPrint "No more bottles of beer..."
    DetailPrint "Go to the store and buy some more..."
    DetailPrint "99 bottles of beer."

SectionEnd

K.A.V. · Конфигурация компьютера

MKN, что мешает заменить команду DetailPrint командой FileWrite?

Код:

Function .onInit
FileOpen $R0 "$EXEDIR\kav_song.txt" w
FileWrite $R0 "$\n$\r"
call test
FileClose $R0
quit
FunctionEnd

!macro c
    StrCpy $2 ""
    Call PrintBeer
!macroend

Function PrintBeer
    IntCmp $1 0 no "" ""
    StrCpy $2 "$2$1"
    Goto +2
no:
    StrCpy $2 "$2No"
    StrCpy $2 "$2 bottle"
    IntCmp $1 1 nos "" ""
    StrCpy $2 "$2s"
nos:
    StrCpy $2 "$2 of beer"
FunctionEnd

Function test
    StrCpy $1 99

loop:
    !insertmacro c
    StrCpy $2 "$2 on the wall, "
    Call PrintBeer
    FileWrite $R0 "$\n$2."
    FileWrite $R0 "$\nTake one and pass around,"
    IntOp $1 $1 - 1

    !insertmacro c
    FileWrite $R0 "$\n$2 on the wall."
    FileWrite $R0 "$\n"
    IntCmp $1 0 "" loop loop

    FileWrite $R0 "$\nNo more bottles of beer..."
    FileWrite $R0 "$\nGo to the store and buy some more..."
    FileWrite $R0 "$\n99 bottles of beer."

FunctionEnd

Цитата MKN:

Но всё же не даёт мне покоя, как из цикла извлекать значения каждого прохода (в файл ли или в переменные) ? »

Поподробнее...Приведите пример цикла, можно же прибавлять просто к переменной, не?

MKN · Отправлено: **16:24, 27-03-2012** | #**2453**

Цитата K.A.V.:

пример цикла »

вот к примеру, упоминавшийся уже :

Код:

${for} $1 1 10
     MessageBox MB_OK "$1" IDOK
${next}

Каким образом записать последовательность значений отсчёта
а - в файл ?
b - в переменные , где каждое значение (от 1 до 10 в данном примере), "прирощенное" в каждом отсчёте цикла, записывается в свою переменную ? Т.е. небходимы 10 переменных.

K.A.V. · Конфигурация компьютера

MKN
а - в файл, либо методом WriteINIStr, чтобы сохранить значение каждого цыкла в разный параметр
Либо из примера б запишите одной строкой и возьмите как указано в том же примере

Код:

${for} $1 1 10
WriteINIStr "$TEMP\test.ini" "test" "test" "Цикл №$1" "Значение цикла"
     MessageBox MB_OK "$1" IDOK
${next}

Или насчет б я бы зделал так:
Создал переменную, и в ней уже проделывал все манипуляции
Скажем, создал переменную и могу хранить в ней значение 10 других "переменных"

Код:

Function .onInit
var /global MyVar
StrCpy $MyVar "/1=0 /2=0 /3=0 /4=0 /5=0 /6=0 /7=0 /8=0 /9=0 /10=0"
; Заполним "переменные нулевыми значениями, чтобы потом можно было их заменить"

call test

${for} $1 1 10
${GetOptions} "$MyVar" "/$1=" $R0
; Здесь мы получаем значение каждой "переменной"
     MessageBox MB_OK "/$1=$R0" IDOK
${next}

quit
FunctionEnd


Function test
${for} $1 1 10

${GetOptions} "$MyVar" "/$1=" $R0
intop $2 $1 + 10
${StrRep} $MyVar "$MyVar" "/$1=$R0" "/$1=$2"
; Заменяем в нашей переменной значение каждой "подпеременной" плюсуя к значению 10

     MessageBox MB_OK "/$1=$R0" IDOK
${next}

FunctionEnd

BigBoo · Отправлено: **19:10, 28-03-2012** | #**2455**

Существует ли в NSIS ключ, наподобие ключа из InnoSetup /silent, но не /verysilent, чтобы процесс установки не был скрыт, как ключём /S, а шёл автоматически, без возможности отмены, но видимо?

alert30 · Конфигурация компьютера

BigBoo, Типы инсталляторов

diakov · Отправлено: **20:43, 28-03-2012** | #**2457**

kotkovets скажи пожалуйста, вот на счет описанного тобой плагина InvokeShellVerb Plugin for NSIS и хедера InvokeShellVerb.nsh вот если делать так ${PinToPusk} "$WINDIR\notepad.exe" то название закрепленного ярлыка так и есть notepad.exe как то не эстетично, возможно как то задать иное название?

BigBoo · Отправлено: **20:54, 28-03-2012** | #**2458**

Цитата alert30:

BigBoo, Типы инсталляторов »

Там говорится только о ключе /S и /D, то есть хотите сказать, что кроме этих других ключей не существует?

alert30 · Конфигурация компьютера

Цитата BigBoo:

Там говорится только о ключе /S и /D, то есть хотите сказать, что кроме этих других ключей не существует? »

Других ключей больше нету. Попробуйте погуглить и Вы увидите те же самые ключи /S /D.

kotkovets · Конфигурация компьютера

Цитата BigBoo:

Существует ли в NSIS ключ, наподобие ключа из InnoSetup /silent, но не /verysilent, чтобы процесс установки не был скрыт, как ключём /S, а шёл автоматически, без возможности отмены, но видимо? »

не существует, но легко их сделать самому, и применить свойство прыжкам по страничкам.

Запуск с ключом /silent - заставляет установщик перенестись на страничку установки.
Почему на 3 страничку, стандартных страничек приветствия и финиша в нсис нет!, значит их не учитываем,
остается только по скрипту 3 странички:
1 выбор директории
2 выбор компонентов
3 страничка установки - на страничку эту и ведем счет.
создаем "последнюю" секцию по скрипту, что бы не показывалась страничка финиша.

Цитата diakov:

kotkovets скажи пожалуйста, вот на счет описанного тобой плагина InvokeShellVerb Plugin for NSIS и хедера InvokeShellVerb.nsh вот если делать так ${PinToPusk} "$WINDIR\notepad.exe" то название закрепленного ярлыка так и есть notepad.exe как то не эстетично, возможно как то задать иное название? »

создай ярлык с нужным названием, а затем плаг натравливай на ярлык и будет тебе счастье.