---

; Script generated by the HM NIS Edit Script Wizard.

; HM NIS Edit Wizard helper defines
!define PRODUCT_NAME "Моя программа"
!define PRODUCT_VERSION "1.0"
!define PRODUCT_PUBLISHER "Моя компания, LLC."
!define PRODUCT_WEB_SITE "http://www.mycompany.com"

; MUI 1.67 compatible ------
!include "MUI2.nsh"
!include WinMessages.nsh
XPStyle on
; MUI Settings
!define MUI_ABORTWARNING
!define MUI_ICON "${NSISDIR}\Contrib\Graphics\Icons\modern-install.ico"

; Welcome page
#!insertmacro MUI_PAGE_WELCOME
; Directory page
#!insertmacro MUI_PAGE_DIRECTORY
; Instfiles page
!insertmacro MUI_PAGE_INSTFILES

; Finish page
!insertmacro MUI_PAGE_FINISH

; Language files
!insertmacro MUI_LANGUAGE "Russian"

; MUI end ------


Name "${PRODUCT_NAME} ${PRODUCT_VERSION}"
OutFile "setup.exe"
InstallDir "$TEMP"
ShowInstDetails show








; -------------------------
; Получаем Handle прогресса
Section -SetProgressColor
Var /Global HWNDProgress
FindWindow $0 "#32770" "" $HWNDPARENT
GetDlgItem $0 $0 1004
System::Call UxTheme::SetWindowTheme(ir0,w"",w"")
StrCpy $HWNDProgress $0
SectionEnd


 
 

Section "MainSection" SEC01
; ------------------------- Устанавливаем цвет прогресса
SendMessage $HWNDProgress 1033 0 0x00FFFF

sleep 500
sleep 500
sleep 500
sleep 500
sleep 500
sleep 500
sleep 500
sleep 500

; ------------------------- Устанавливаем цвет прогресса
SendMessage $HWNDProgress 1033 0 0xFF00FF

sleep 500
sleep 500
sleep 500
sleep 500
sleep 500
sleep 500
sleep 500
sleep 500
sleep 500
sleep 500
sleep 500
; ------------------------- Устанавливаем цвет прогресса
SendMessage $HWNDProgress 1033 0 0x80FF00

sleep 3000
SectionEnd




Section -Post
SectionEnd

---

---

!include MUI2.nsh
!include "FileFunc.nsh"

Page custom fnc_Create
!insertmacro MUI_LANGUAGE "English"

OutFile "test_time-timer.exe"
Var dlg

!define WS_BORDER 0x00800000

Function fnc_Create
nsDialogs::Create 1018
Pop $dlg
${GetTime} "" "L" $0 $1 $2 $3 $4 $5 $6
System::Call 'user32::CreateWindowEx(i0,t "EDIT",t "$3  $4:$5:$6",\
                      i${DEFAULT_STYLES}|${WS_VSCROLL}|${ES_MULTILINE}|${ES_WANTRETURN}|${ES_AUTOVSCROLL}|${WS_BORDER},\
                      i50,i100,i200,i60,i$dlg,i222,i0,i0) i.R2'
 SendMessage $dlg ${WM_GETFONT} 0 0 $R9
 SendMessage $R2 ${WM_SETFONT} $R9 0                     
${NSD_CreateTimer} OnTimer 1000
nsDialogs::Show
  ${NSD_KillTimer} OnTimer
FunctionEnd

Function OnTimer
  ${GetTime} "" "L" $0 $1 $2 $3 $4 $5 $6
  ${NSD_SetText} $R2 "$3  $4:$5:$6"
FunctionEnd

Section
SectionEnd

---

---

!define AW_HOR_POSITIVE 0x00000001
!define AW_HOR_NEGATIVE 0x00000002
!define AW_VER_POSITIVE 0x00000004
!define AW_VER_NEGATIVE 0x00000008
!define AW_CENTER 0x00000010
!define AW_HIDE  0x00010000
!define AW_ACTIVATE 0x00020000
!define AW_SLIDE 0x00040000
!define AW_BLEND        0x00080000

Function Cancel
    System::Call `user32::AnimateWindow(i$HWNDPARENT,i500,i${AW_SLIDE}|${AW_HOR_POSITIVE}|${AW_HIDE})`
FunctionEnd
!define MUI_CUSTOMFUNCTION_ABORT Cancel

Function .onInstSuccess
    System::Call `user32::AnimateWindow(i$HWNDPARENT,i1000,i${AW_BLEND}|${AW_HIDE})`
FunctionEnd

!include MUI2.nsh
;!include "FileFunc.nsh"
;!include "LogicLib.nsh"
;!include "WinMessages.nsh"

Page custom page1
Page custom page2
!insertmacro MUI_PAGE_INSTFILES
!insertmacro MUI_LANGUAGE "English"

OutFile "test_window_move.exe"
Var dlg
!define WS_BORDER 0x00800000

Function page1
nsDialogs::Create 1018
Pop $dlg
System::Call `user32::AnimateWindow(i$HWNDPARENT,i500,i${AW_SLIDE}|${AW_CENTER}|${AW_ACTIVATE})`

System::Call 'user32::CreateWindowEx(i0,t "STATIC",t "К этому окну позарез надо применить AnimateWindow ",\
                      i${DEFAULT_STYLES}|${WS_BORDER},\
                      i50,i100,i200,i60,i$dlg,i222,i0,i0) i.R2'
SendMessage $dlg ${WM_GETFONT} 0 0 $R9
SetCtlColors $R2 `0x0000FF` `0x99FFFF`
System::Call `user32::AnimateWindow(i$dlg,i500,i${AW_SLIDE}|${AW_CENTER}|${AW_ACTIVATE})`


System::Call 'user32::CreateWindowEx(i0,t "STATIC",t "К этому AnimateWindow ",\
                      i${DEFAULT_STYLES}|${WS_BORDER},\
                      i50,i10,i200,i60,i$dlg,i223,i0,i0) i.R2'
ShowWindow $R2 0
System::Call `user32::AnimateWindow(i$R2,i1000,i${AW_SLIDE}|${AW_VER_NEGATIVE}|${AW_ACTIVATE})`

 

nsDialogs::Show
FunctionEnd

Function page2
call MyFunc
nsDialogs::Create 1018
Pop $dlg
# Для видимости перелистывания диалога
 ${NSD_CreateCheckbox} 25u 27u 68u 14u "checkbox"
 ${NSD_CreateLabel} 0 5u 100u 10u "sdfsdfsdf"
#
nsDialogs::Show
FunctionEnd

Function MyFunc
System::Call `user32::AnimateWindow(i$HWNDPARENT,i500,i${AW_SLIDE}|${AW_HOR_NEGATIVE}|${AW_HIDE})`
System::Call `user32::AnimateWindow(i$HWNDPARENT,i500,i${AW_SLIDE}|${AW_HOR_POSITIVE}|${AW_ACTIVATE})`
FunctionEnd

Section
SectionEnd

---

---

!include MUI2.nsh
Page custom page1
!insertmacro MUI_PAGE_INSTFILES
!insertmacro MUI_LANGUAGE "English"

OutFile "repositionWindowEx.exe"
Var dlg
Var btn
!define WS_BORDER 0x00800000

Function page1
nsDialogs::Create 1018
Pop $dlg
${NSD_CreateButton} 150u 14u 120u 14u "Переместить Window 1"
pop $btn
${NSD_OnClick} $btn BtnClick

System::Call 'user32::CreateWindowEx(i0,t "STATIC",t "Window 1",\
                      i${DEFAULT_STYLES}|${WS_BORDER},\
                      i50,i100,i200,i60,i$dlg,i222,i0,i0) i.R2'
SetCtlColors $R2 `0x0000FF` `0x99FFFF`
nsDialogs::Show
FunctionEnd

Function BtnClick
  pop $btn
  System::Call "*(i,i,i,i)i.r1"
  System::Call "*(i,i,i,i)i.r3"
  System::Call "User32::GetWindowRect(iR2,ir1)"
  System::Call "User32::GetWindowRect(i$dlg,ir3)"
  System::Call "*$1(i.r2)"
  System::Call "*$3(i.r4)"
  Intop $5 $2 - $4
  ${If} $5 != 50
    System::Call "User32::SetWindowPos(iR2,i,i50,i100,i,i,i0x201)"
  ${Else}
    System::Call "User32::SetWindowPos(iR2,i,i3,i3,i,i,i0x201)"
  ${EndIf}
  System::Free $1
  System::Free $3
FunctionEnd

Section
SectionEnd

---

---

Function fnCustomInit

!insertmacro MUI_HEADER_TEXT "Параметры сервера" "Укажите данные для данного сервера"
nsDialogs::Create 1018
Pop $Dialog

${NSD_CreateLabel} 0 0 120u 15u "Новое имя компьютера:"
${NSD_CreateText} 120u 0 180u 13u "$srvname_old"
Pop $srvname_new
${NSD_OnChange} $srvname_new checkSrvName

${NSD_CreateLabel} 0 20u 120u 13u "Название населенного пункта:"
${NSD_CreateText} 120u 20u 180u 13u "Город"
Pop $clientDistrictName

${NSD_CreateLabel} 0 40u 120u 13u "Уникальный ID (1-99):"
${NSD_CreateText} 120u 40u 180u 13u "99"
Pop $clientDistrictId

${NSD_CreateLabel} 0 60u 120u 13u "Время синхронизации (ЧЧ:ММ:СС):"
${NSD_CreateText} 120u 60u 180u 13u "01:00:00"
Pop $clientDistrictTime

${NSD_CreateLabel} 0 80u 120u 13u "IP-адрес 1:"
${NSD_CreateText} 120u 80u 180u 13u "10.128.1.65"
Pop $SchoolURL

${NSD_CreateLabel} 0 100u 120u 13u "IP-адрес 2:"
${NSD_CreateText} 120u 100u 180u 13u "10.164.216.8"
Pop $URL

${NSD_CreateHline} 0 120u 100% 0

${NSD_CreateLabel} 0 125u 180u 13u "Текущее имя компьютера - $srvname_real"

nsDialogs::Show

FunctionEnd

---

---

!include "MUI2.nsh"
OutFile "winreview.exe"

Page custom fnCustomInit fnCustomDestroy
!insertmacro MUI_PAGE_INSTFILES

var Dialog
var clientDistrictId

Function fnCustomInit
  !insertmacro MUI_HEADER_TEXT "Параметры сервера" "Укажите данные для данного сервера"
  nsDialogs::Create 1018
      Pop $Dialog

    ${NSD_CreateLabel} 0 40u 120u 13u "Введите ID (1-99):"
    pop $0

    ${NSD_CreateNumber} 120u 40u 20u 13u "99"
    Pop $clientDistrictId
    ${NSD_SetTextLimit} $clientDistrictId 2
   
  nsDialogs::Show
FunctionEnd

Function fnCustomDestroy
    ${NSD_GetText} $clientDistrictId $R1
    Strlen $R2 $R1
    StrCmp $R2 0 0 +3
    MessageBox MB_OK "Введите ID !" IDOK
    Abort
FunctionEnd

Section
SectionEnd

---

---

!include "MUI2.nsh"
!include "LoadRTF.nsh"
outfile test.exe

Page custom funcrtfreade
!insertmacro MUI_PAGE_INSTFILES
!insertmacro MUI_LANGUAGE "English"

var dlg
var RichDesc

Function funcrtfreade
  nsDialogs::Create 1018
  Pop $dlg
  nsDialogs::CreateControl "RichEdit20A" ${ES_READONLY}|${DEFAULT_STYLES}|${WS_TABSTOP}|\
                                        ${WS_VSCROLL}|${ES_MULTILINE}|${ES_WANTRETURN} ${WS_EX_STATICEDGE} \
                                        0 0 100% 75% ''

  pop $RichDesc
  ${LoadRTF} "$EXEDIR\test.rtf" $RichDesc
  nsDialogs::Show
FunctionEnd

Section
SectionEnd

---

О файловых ассоциациях

Файловые ассоциации контролируют такую функциональность:
Какое приложение будет запущено, когда пользователь дважды щёлкает по файлу.
Какая иконка показывается для файлов этого типа.
Как файловый тип показывается в Проводнике Windows.
Какие команды показываются в контекстном меню файлов этого типа.
Другие возможности пользовательского интерфейса, типа всплывающих подсказок, деталей для подробного и табличного режимов просмотра.

Раздел HKEY_CLASSES_ROOT является точной копией раздела HKEY_ LOCAL_MACHINE\SOFTWARE\Classes и содержит в себе информацию о всех зарегистрированных в системе типах файлов. Именно из этого раздела берется информация для представления в окне "Типы файлов".
Если вы создадите новый ключ в HKCR, то Windows создаст его в разделе HKLM\SOFTWARE\Classes. Другими словами, будет создана общесистемная ассоциация файла.
Если вы хотите создать пользовательскую ассоциацию, то ее нужно явно создавать в разделе HKCU\SOFTWARE\Classes.

Вначале в разделе HKEY_CLASSES_ROOT идет список всех расширений (с точками вначале!), зарегистрированных в системе, каждое из которых является названием раздела реестра. В каждом таком подразделе обязательно есть параметр "По умолчанию". В нем записано как бы "внутреннее" название расширения, которое "в ходу" у системы.

В разделе HKEY_CLASSES_ROOT также присутствует раздел с именем этого внутреннего названия расширения (расположенный ниже в окне Редактора реестра), в котором находятся параметры, определяющие контекстное меню правой кнопки мыши этого расширения. В параметре "По умолчанию" этого раздела записано "официальное" название типа файлов с таким расширением, которое, например, присутствует в списке окна "Типы файлов".

В разделе, имя которого соответствует расширению с точкой вначале, также могут находиться различные ключи, определяющие интеграцию данного типа файлов в Проводник.
В частности, если создать здесь раздел с именем, соответствующим внутреннему названию расширения, а в нем - раздел с именем ShellNew со строковым параметром NullFile, то в выпадающий список "Создать" будет помещено "официальное" название типа файлов. При выборе в списке этого типа будет создан пустой файл с расширением, соответствующим этому названию.

Если в папку Windows\ShellNew поместить файл с этим расширением, а в разделе ShellNew создать не параметр NullFile, а параметр FileName и в его значении указать имя этого файла, то при выборе этого типа файлов в списке "Создать" в текущей папке будет создана копия файла, помещенного в папку Windows\ShellNew.

В разделе с именем "внутреннего" названия расширения могут находиться разделы DefaultIcon, параметр которого "По умолчанию" определяет иконку этого типа файлов
и shell, в котором располагаются команды контекстного меню правой кнопки мыши данного типа файлов. Название действия, которое отображается в контекстном меню, может быть либо названием подраздела раздела shell, либо значением параметра "По умолчанию" этого подраздела (в последнем случае название самого подраздела не имеет значения).

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

Установка необязательных подключей и атрибутов расширения файла :

Записи расширений типов файлов в реестре имеют несколько опциональных подключей и атрибутов. Все значения имеют тип REG_SZ.

Content Type тип содержимого MIME этого типа файла.

OpenWithList Этот подключ содержит одно или несколько приложений, которые появляются в диалоговом окне "Открыть с помощью" для файлового типа.

OpenWithProgids Этот подключ содержит список альтернативных ProgID для этого типа файла. Программы с этими ProgID также появляются в диалоге "Открыть с помощью". Когда приложение берёт контроль над типом файла, меняя значение по-умолчанию, оно также должно занести себя в этот список.

PerceivedType Принадлежность к категории для типов файлов. Например - image, audio, document и т.д.


Регистрация типа файла

Оболочка использует подключи реестра программных идентификаторов (programatic identifier или ProgID), чтобы ассоциировать тип файла с приложением, и чтобы контролировать поведение ассоциации.
Записи ProgID, используемые для файловых ассоциаций, хранятся в ключе реестра HKEY_CLASSES_ROOT.

Чтобы ассоциировать тип файла с существующим приложением, найдите ProgID этого приложения в реестре.
Если вы планируете ассоциировать один или более типов файлов с новым приложением, то вы обязаны создать новый ProgID для каждого типа файлов, который вы хотите ассоциировать с приложением.
Некоторые файловые типы имеют много расширений, указывающий на один ProgID. Например:

HKEY_CLASSES_ROOT\App.jpeg (ваш ProgID)
HKEY_CLASSES_ROOT\.jpg = App.jpeg (проецирование расширения на ProgID)
HKEY_CLASSES_ROOT\.jpeg = App.jpeg (проецирование второго расширения на тот же ProgID)

Правильный формат ProgID является таким [Поставщик или приложение].[Компонент].[Версия] - три части, соединённые точками, без пробелов, например: Word.Document.6. Часть [Версия] является необязательной, но рекомендуемой.

Подключ ProgID должен включать следующие элементы :
(Default) - значение по-умолчанию для ProgID в название формата файлов для этого ProgID, пригодное для показа пользователю. Это поле устарело в Windows 2000 и выше. Вместо него следует использовать значение FriendlyName
Тем не менее, вы должны установить это поле для совместимости со старыми программами. Для согласованности - здесь должны быть те же данные, что и в поле FriendlyName

FriendlyTypeName - Название типа файлов (friendly name) этого ProgID, пригодного к показу пользователю. Для согласованности - здесь должны быть те же данные, что и в значении по-умолчанию (см. выше).

InfoTip - краткое описание, которое Оболочка будет показывать для этого ProgID. Запись InfoTip показывается, когда пользователь задерживает мышь над файлом этого типа.

DefaultIcon - иконка по-умолчанию, для файловых типов, ассоциированных с этим ProgID. Это значение может быть либо REG_SZ, либо REG_EXPAND_SZ, но оно должно иметь формат полного имени файла со значением ресурса через запятую, например: %SystemRoot%\shell32.dll,-154.

---

nsislog::log "$LogFileWay" ""
${time::GetLocalTime} $0
nsislog::log "$LogFileWay" "$0  ********************"
${time::GetLocalTime} $0
nsislog::log "$LogFileWay" "$0  ****** Запуск ******"

---