[kotkovets]

обнаружил интересные положительные свойства этого макроса »

какие? эту "апишку" я знаю хорошо, к тому же в справочнике по NSIS, Примеры кодов->Определение SID пользователя,
в макросе я добавил чуть больше возможностей использовать потенциал этой апи функции.

[Oleg48]

Дорогие товарищи помогите подчистить (подкорректировать, упростить) код:

Код:

!include "FileFunc.nsh"
!include "nsDialogs.nsh"
!include "winmessages.nsh"
!include "logiclib.nsh"

var dialog
var pass
var rezul

Function .onInit
  ${GetOptions} $CMDLINE "/PAS=" $1
  IfErrors +3  0
  StrCpy $rezul $1
  GoTo .Done
  FunctionEnd

Page custom fnCustomInit fnCustomDestroy

Function fnCustomInit
  nsDialogs::Create 1018
   Pop $dialog
  ${NSD_CreateText} 40% 20% 90u 12u $rezul
   Pop $pass
 ${if} $rezul == ""
 nsDialogs::Show
 ${endif}
 FunctionEnd

Function fnCustomDestroy
  ${NSD_GetText} $pass $rezul
   GoTo .Done
 FunctionEnd


Section "MainSection" SEC01
  .Done:
  ${ifnot}  $rezul == ПАРОЛЬ 
       MessageBox MB_ICONSTOP "Неверный пароль !!!"
       Abort ; конец иницилизации
   ${endif}
  ...
SectionEnd

Писать скрипты на NSIS начал недавно, чаще всего использовал мастер, почти незадумывался о коде, вот решил его усовершенствовать.
Вашему вниманию представляю часть кода, принцип его работы такой: Запускаем программу. Если при запуске программы указываем ключ /PAS="пароль" , тогда если пароль правильный программа устанавливается без окна запроса пароля, если пароль неправильный то ничего непроисходит. Если при установке ключ /PAS неуказывается тогда пользователю предлогается ввести пароль в окошке, естественно при правильном пароле программа устанавливается, а при неправильном нет.
Писал этот код почти по наитию, методом проб и ошибок, поэтому строго несудите. Самому неочень нравится переходы на метки, считаю что это неочень правильно но по другому еще пока неумею. Буду рад любой помощи.

[kotkovets]

Писать скрипты на NSIS начал недавно, чаще всего использовал мастер, почти незадумывался о коде »

Очень плохо, это очень мощный язык сценария, и сложный довольно для начинающих

Если при запуске программы указываем ключ /PAS="пароль" , тогда если пароль правильный программа устанавливается без окна запроса пароля, если пароль неправильный то ничего непроисходит »

Здесь вы упустили очень важный момент, при тихом режиме (с ключом /S) всегда будет установка,
поэтому тоже нужна еще проверка на флаг тихого режима.

неочень нравится переходы на метки, считаю что это неочень правильно »

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

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

Код:

!include "FileFunc.nsh"
!include "nsDialogs.nsh"
!include "winmessages.nsh"
!include "logiclib.nsh"

outfile test.exe
var dialog
var pass
var rezul

Page custom fnCustomInit fnCustomDestroy
Page InstFiles ;страничка устаноки

Function .onInit
   ClearErrors ;очищаем принудительно флаг ошибки для корректной отработки кода
   ${GetOptions} $CMDLINE "/PAS=" $rezul
   ${If} ${Silent}           ;функцию проверки пароля, запускаем, если тихий режим И
   ${AndIf} $rezul != ПАРОЛЬ ;неверный пароль, т.е логика И
      Call CheckPass
   ${EndIf}
   ClearErrors ;очищаем принудительно флаг ошибки для корректной отработки кода
FunctionEnd

Function fnCustomInit
   ${If} $rezul != ПАРОЛЬ ;если ключ правильный, то не показываем кастомную страничку, если не тихий режим.
      nsDialogs::Create 1018
      Pop $dialog
      ${NSD_CreateText} 83u 40u 90u 12u $rezul
      Pop $pass
      nsDialogs::Show
   ${EndIf}
FunctionEnd

Function fnCustomDestroy
  ${NSD_GetText} $pass $rezul
  ${If} $rezul != ПАРОЛЬ
      Call CheckPass
  ${EndIf}
FunctionEnd

Function CheckPass ;функция прерывания
     MessageBox MB_ICONSTOP "Неверный пароль !!!"
     Abort ; конец иницилизации
FunctionEnd

Section "MainSection" SEC01
    MessageBox MB_ICONINFORMATION|MB_OK "$rezul" IDOK
SectionEnd

[Impeck]

Возникла необходимость в транслитерации.
Имеем в $0 "По умолчанию"
Нужно получить в $0 "Po umolchaniu"
а лучше в $0 "\x41f\x43e \x443\x43c\x43e\x43b\x447\x430\x43d\x438\x44e"

Такое можно сделать в NSIS?

[kotkovets]

Нужно получить в $0 "Po umolchaniu" а лучше в $0 "\x41f\x43e \x443\x43c\x43e\x43b\x447\x430\x43d\x438\x44e" Такое можно сделать в NSIS? »

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

[Impeck]

kotkovets, спасибо, посмотрел плагин Registry, конвертирует немного не в то чего бы хотелось.

[kotkovets]

конвертирует немного не в то чего бы хотелось »

Можно разложить строку на символы в цикле, и заменять каждый символ,
Например с помощью команды поддерживающий 256 символов, пример в цикле, число=символ, матрица:

Код:

Section
  StrCpy $0 0
  Go:
     Intfmt $1 %c $0 ; в $1 символ соответствующий цифре
     DetailPrint "$0 = $1"
     InTop $0 $0 + 1 ;c каждым циклом увеличиваем на 1 $0
     StrCmp $0 256 End
     Goto Go
  End:
SectionEnd

[Impeck]

Еще вопрос...
большая буква "А"=>"x0410"
маленькая буква "а"=>"x0430"

для

Код:

StrCmp $1 "а" 0 +2
StrCpy $1 "\x430"

регистр букв не важен.
Как-то можно это обойти?

[kotkovets]

регистр букв не важен. Как-то можно это обойти? »

что обойти, забор, ограждение???

[Impeck]

забор
Как различить регистр букв?

Код:

StrCmp $1 "а" 0 +2
StrCpy $1 "\x430"
StrCmp $1 "А" 0 +2
StrCpy $1 "\x410"

в $1 маленькая "а" будет.