[Sancho5555]

Serg866, вот так удаляет:

RMDir /r "$DESKTOP\Моя папка"

[Sancho5555]

В справочнике, в разделе "Работа с реестром" есть макрос ${StrToHex} "строка" $var - Конвертирование строки в HEX.
Не подскажите, как сделать наоборот конвертирование HEX в строку, или ${HexToStr}?

[MKN]

HEX в строку »

Registry_plug-in
${registry::HexToStr} "[hex_string]" $var

И ещё когда то kotkovets, приводил такой код :

Код:

конвертация 16-ричное число в десятичное, десятичное в ASCII

  IntFmt $1 "%i" 0x37 ;16-ричное число в десятичное
 ;-------------------------------------------------------------------
  IntFmt $1 "%c" $1 ;десятичное в ASCII

[Dodakaedr]

Подскажите, пожалуйста, в чем проблема? Почему если в конце ключа реестра стоит цифра то этот ключ пропускается? Для большей понятности:

Скрытый текст

Код:

outfile "test find key.exe"
!include "Registry.nsh"

function "_bak"
StrCpy $0 0
loop:
  EnumRegKey $1 HKLM "SOFTWARE" $0
  StrCmp $1 "" done
  IntOp $0 $0 + 1
  StrCpy $9 "$1" 14
  StrCmp $9 "ComSysControl." wel loop
  wel:
  ${registry::MoveKey} "HKLM\SOFTWARE\$1" "HKLM\SOFTWARE\$1_bak" $r9
  ${Registry::UnLoad}
  goto loop
done:
functionend

Section
${registry::Write} "HKLM\SOFTWARE\ComSysControl.UserVars.1" "" "" "REG_SZ" $9
${registry::Write} "HKLM\SOFTWARE\ComSysControl.UserVars" "" "" "REG_SZ" $9
${registry::Write} "HKLM\SOFTWARE\ComSysControl.Win_ini.1" "" "" "REG_SZ" $9
${registry::Write} "HKLM\SOFTWARE\ComSysControl.Win_ini" "" "" "REG_SZ" $9
${registry::Unload}
call _bak
SectionEnd

[MKN]

Почему если в конце ключа реестра стоит цифра то этот ключ пропускается? »

Всё нормально :

Код:

OutFile "test find key.exe"
!include "Logiclib.nsh"
!include "Registry.nsh"

var err

Section
; для тестирования
${registry::Write} "HKLM\SOFTWARE\Test.test.ttt.aaaaaaaa.1" ".test" "5" "REG_SZ" $err
${registry::Write} "HKLM\SOFTWARE\Test.test.ttt.bbbbbbbb.1" ".test" "7" "REG_SZ" $err

${Do}
EnumRegKey $1 HKLM "SOFTWARE" $0 
IntOp $0 $0 + 1
StrCpy $9 $1 14 ;первые 14 символов из $1(Test.test.ttt.) помещаем в $9
${If} $9 == "Test.test.ttt."  ; условие
DetailPrint $1 ;для информации
ClearErrors
MessageBox MB_OK "Условие найдено. Далее - необходимое действие"
${EndIf}
${LoopUntil} $1 == ""
SectionEnd

[Dodakaedr]

Всё нормально : »

С тестовыми ключами да, но если подставить требуемые, то результат тот же:

Скрытый текст

Скрытый текст

Код:

OutFile "test find key22.exe"
!include "Logiclib.nsh"
!include "Registry.nsh"

var err

Section
; для тестирования
${registry::Write} "HKLM\SOFTWARE\ComSysControl.UserVars.1" ".test" "5" "REG_SZ" $err
${registry::Write} "HKLM\SOFTWARE\ComSysControl.UserVars" ".test" "7" "REG_SZ" $err

${Do}
EnumRegKey $1 HKLM "SOFTWARE" $0
IntOp $0 $0 + 1
StrCpy $9 $1 14 ;первые 14 символов из $1(Test.test.ttt.) помещаем в $9
${If} $9 == "ComSysControl."  ; условие
;DetailPrint $1 ;для информации
;ClearErrors
;MessageBox MB_OK "Условие найдено. Далее - необходимое действие"
${registry::MoveKey} "HKLM\SOFTWARE\$1" "HKLM\SOFTWARE\$1_bak" $r9
${Registry::UnLoad}
${EndIf}
${LoopUntil} $1 == ""
SectionEnd

[MKN]

С тестовыми ключами да, но если подставить требуемые, то результат тот же »

Значит дело конкретно в твоих ключах. Либо нет доступа к ключу, либо скрипту(плагину) не нравится название ключа.
В частности, подозрение вызывает "UserVars" в составе ключа.

[Sancho5555]

Есть плагин от K.A.V. для установки прозрачности окна инсталлятора - для примера код:

Скрытый текст

Код:

!include "MUI2.nsh"
!define TBM_SETPOS 0x0405
!define TBM_GETPOS 0x0400
!define TBM_SETRANGEMIN 0x0407
!define TBM_SETRANGEMAX 0x0408

!addplugindir "."
!insertmacro MUI_LANGUAGE "Russian"

Name "transparent plugin example"
OutFile "transparent.exe" 
XPStyle on

Var transparent
Var Slider
Var Move
Var Label
Var Button

Page custom Create

Function Slider
  SendMessage $Slider ${TBM_GETPOS} 0 0 $Move
  transparent::SetTransparentWindowStyle "$Move"
  ${NSD_SetText} $Label "$Move"
FunctionEnd

Function Create
  nsDialogs::Create 1018
  Pop $transparent
	
  nsDialogs::CreateControl "msctls_trackbar32" "0x50010000|0x00000018" "" 80u 100u 200 60 ""
  Pop $Slider
  SendMessage $Slider ${TBM_SETRANGEMIN} 1 50
  SendMessage $Slider ${TBM_SETRANGEMAX} 1 255
  SendMessage $Slider ${TBM_SETPOS} 1 255
  transparent::SetTransparentWindowStyle "255"
	
  ${NSD_CreateLabel} 215u 104u 30u 30u ""
  Pop $Label
	
  ${NSD_CreateButton} 20u 103u 51u 12u "Обзор"
  Pop $Button
  ${NSD_OnClick} $Button Example
	
  ${NSD_CreateTimer} Slider 50
  nsDialogs::Show $transparent
FunctionEnd

Function Example
  nsDialogs::SelectFolderDialog /NOUNLOAD "" ""
  Pop $0
FunctionEnd

Section
SectionEnd

Прозрачность работает, но после нажатия кнопки "Обзор" transparent плагин перестаёт работать.
В чём может быть проблема?

[K.A.V.]

Прозрачность работает, но после нажатия кнопки "Обзор" transparent плагин перестаёт работать. »

Нет такой проблемы, по крайней мере у меня, всё работает
Попробуйте так

[Sancho5555]

Нет такой проблемы, по крайней мере у меня, всё работает »

Заметил у себя на Win8 X64 работает через раз, после загрузки системы, буду разбираться.