1 files changed, 85 insertions, 0 deletions
diff --git a/tools/installer_ng_stable/Common/Installer/ISWin7.iss b/tools/installer_ng_stable/Common/Installer/ISWin7.iss
new file mode 100644
index 0000000000..efa6803aad
--- /dev/null
+++ b/tools/installer_ng_stable/Common/Installer/ISWin7.iss
@@ -0,0 +1,85 @@
+; Демонстрационный скрипт ISWin7 v0.4.2
+;
+; Поддержка Windows Vista была некорретна вследствии чего была удалена
+;
+; Это тестовый скрипт позволяет сделать прозрачными края или всё окно целиком.
+; Работает в Windows 7, Windows 8
+;
+; В Windows XP и Windows Vista он пропускает инициализацию
+; что не мешает работоспособности сетапника в этих операционных системах
+;
+; Создатель: VoLT
+;
+; В дальнейшем развитии ожидается полная поддержка всех свистелок и перделок Windows 7
+;
+; Выражаю благодарность за тесты камраду s00p (трекер с nnm-club.ru)
+; Хочу так же сказать спасибо группе R.G. ReCoding (трекер rustorka.com) за идеи и хорошую компанию
+
+[Setup]
+AppName=My Program
+AppVerName=My Program version 1.5
+DefaultDirName={pf}\My Program
+DefaultGroupName=My Program
+UninstallDisplayIcon={app}\MyProg.exe
+Compression=lzma
+SolidCompression=yes
+OutputDir=.
+
+[Files]
+Source: ISWin7.dll; DestDir: {tmp}; Flags: dontcopy
+
+         // Handle равен хэндлу окна WizardForm.Handle.
+         // Параметры Left, Top, Right или Bottom задают рамку Стекла,
+         // Если один из этих параметров равен -1 то стекло делается на всё окно
+[Code]   
+function win7_init(Handle:HWND; Left, Top, Right, Bottom : Integer): Boolean;
+external 'win7_init@files:ISWin7.dll stdcall';
+
+procedure win7_free;
+external 'win7_free@files:ISWin7.dll stdcall';
+
+procedure InitializeWizard();
+begin
+  // Для более красивого отображения уменьшаем нижнюю границу
+  WizardForm.Bevel.Height := 1;
+  // Инициализируем библиотеку
+  if win7_init(WizardForm.Handle, 0, 0, 0, 47) then
+  begin
+    WizardForm.Caption := 'Включено';
+  end
+  else
+  begin
+    WizardForm.Caption := 'Выключено';
+  end;
+end;
+
+procedure DeinitializeSetup();
+begin
+  // Отключаем библиотеку
+  win7_free;
+end;
+
+procedure CurPageChanged(CurPageID: Integer);
+begin
+  WizardForm.ReadyPage.Hide;
+end;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+