summaryrefslogtreecommitdiff
path: root/tools/installer_ng/InnoNG_32/Installer/ISWin7.iss
diff options
context:
space:
mode:
Diffstat (limited to 'tools/installer_ng/InnoNG_32/Installer/ISWin7.iss')
-rw-r--r--tools/installer_ng/InnoNG_32/Installer/ISWin7.iss85
1 files changed, 0 insertions, 85 deletions
diff --git a/tools/installer_ng/InnoNG_32/Installer/ISWin7.iss b/tools/installer_ng/InnoNG_32/Installer/ISWin7.iss
deleted file mode 100644
index efa6803aad..0000000000
--- a/tools/installer_ng/InnoNG_32/Installer/ISWin7.iss
+++ /dev/null
@@ -1,85 +0,0 @@
-; Демонстрационный скрипт 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;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-