[chites]

Доброе время суток!!!
А не подскажете можно ли как-то перейти на предыдущую страницу Инсталлятора при некорректном выполнении основной секции ??
Если использовать Abort, отображается текущая страница с активной кнопкой "Отмена", а мне бы хотелось, чтобы инсталлятор перешел на предыдущуб страницу, ну или хотябы была активна кнопка еще "Назад"

[kotkovets]

Плагины к NSIS, если не ошибаюсь, пишутся на си. Получается, что придётся переписать dll-ку с делфи на си? »

можно и на делфи, не важно, но лучше все таки на си, потому что, NSIS си-подобный язык, даже больше смахивает на Visual Basic.

System::Call "Crypt::Code($R1) $R2" »

Здесь в корне не правильный синтаксис, но не значит, что будет работать. По сути передаются строковые значения, при такой записи предполагается, что Crypt лежит в system32, $R1 -пишется как R1, что типа так:

Код:

System::Call "путь\Crypt::Code(t.R1, t.R2)i.r0"

i.r0 - код возврата в $0 (переменная типа int, 0 или error (вообще, код возврата можно определить в библиотеке, error - возвращает system.dll - успешно или нет)
Здесь я вам не помогу в написании плагина , к сожалению...
О синтаксе System почитайте Docs\System\System.html и о типах переменных. Посмотрите на сайте NSIS в разделе плагины, там много плагинов идут с сырцами, попадаются и на делфи, но в основном на си.

А не подскажете можно ли как-то перейти на предыдущую страницу Инсталлятора при некорректном выполнении основной секции ?? »

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

[chites]

Код:

Page custom fnCustomInit fnCustomDestroy  
!insertmacro MUI_PAGE_INSTFILES

Function fnCustomInit
    !insertmacro MUI_HEADER_TEXT "Инициализация SQL-сервера" "Введите имя вашего SQL-сервера."
    nsDialogs::Create 1018

    Pop $Dialog
    ${NSD_CreateLabel} 0 5u 100u 10u "Имя SQL-сервера"
    Pop $Label
    ${NSD_CreateText} 0 20u 100% 15u "SQLEXPRESS"
    Pop $Text
    nsDialogs::Show
FunctionEnd

Function fnCustomDestroy
    ${NSD_GetText} $Text $R0
FunctionEnd

Section "MainSection" SEC01
  SetOutPath "$INSTDIR"
  SetOverwrite on

   ; Файлы для установки
   File "upd4.sql"
  
   StrCmp $R0 ""  0 +3
   ExecWait '"$INSTDIR\DATA\osql.exe" -S . -E -d hls_hc -n -i "${FILE_SQL_NAME}" -u -o "log.txt"'
   Goto +2
   ExecWait '"$INSTDIR\DATA\osql.exe" -S .\$R0 -E -d hls_hc -n -i "${FILE_SQL_NAME}" -u -o "log.txt"'
   FileOpen $R0 "$INSTDIR\log.txt" "r"
   read:
   Push $R0
   Call FileReadUnicode
   Pop $R1
   Push $R1
   Call Trim
   Pop $Report
   StrCmp $Report "1" done
   StrCmp $Report "2" done
   StrCmp $Report "3" done
   StrCmp $Report '' 0 +4
   MessageBox MB_OK "Проверьте правильность ввода имени Sql-сервера"
   Abort 
   Goto done
   Goto read
   done:
   FileClose $R0

SectionEnd

вот хочется чтобы в месте Abort инсталлятор вернулся бы к странице Page custom fnCustomInit fnCustomDestroy

[kotkovets]

chites,
Я так понял вам нужно, проверить правильность ввода имени Sql-сервера ?
Делается это в функции (в вашем fnCustomDestroy) при закрытии кастомной странички
К примеру, я в поле ввода имени, ничего не ввел...

Код:

Function fnCustomDestroy
    ${NSD_GetText} $Text $R0
    ${If} $R0 == ""  #условие, если $R0 равно пустому значению, тогда...
        MessageBox MB_ICONSTOP|MB_OK "Введите имя!"
        Abort         
    ${EndIf}
FunctionEnd

[chites]

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

[kotkovets]

chites, Условия определите какие вам нужны, при которых код в секции отработает нормально, иначе я ничем не помогу, я вам привел пример, когда нужно обрабатывать условия

[chites]

kotkovets, спасибо за помощь и столь быстрые ответы!!! Значит я правильно понимаю, что нельзя после выполнения основной секции вернуться на предыдущую страницу? И здесь только один выход, держать пользователя на предыдущей странице пока не удостоверимся о правильности ввода? Это конечно проблематичнее (((

[kotkovets]

Значит я правильно понимаю, что нельзя после выполнения основной секции вернуться на предыдущую страницу? »

все верно! я бы перенес код из секции в функцию fnCustomDestroy

[Krinkels]

Shukaj

Плагины к NSIS, если не ошибаюсь, пишутся на си. Получается, что придётся переписать dll-ку с делфи на си? »

Я писал плагин на дельфи(плагин для распаковки freearc архивов с отображением прогресса распаковки), и он прекрасно работает. Не важно на чем ты пишешь, важно чтоб плагин был написан правильно, иначе он просто не заработает.

[wolkow70]

Товарищи, делаю сборку Ligth Alloy прописал с ассоциациями такие команды:

StrCpy $OpenCommand "$INSTDIR\LA.exe $\"%1$\""
StrCpy $PlayCommand "$INSTDIR\LA.exe $\"%1$\""
StrCpy $QueneCommand "$INSTDIR\LA.exe $\"%1$\" /ADD"


"Воспроизвести в LA" работает
"Открыть в LA работает"
Открыть файл двойным щелчком не работает. Приходится ткнуть кнопку воспроизведения.
С оригинальным инсталлятором все работает.
Что нужно поправить?