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

Показать сообщение отдельно

Новый участник


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

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


Код: Выделить весь код
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

Отправлено: 11:15, 21-04-2011 | #1083