diff options
Diffstat (limited to 'tools/installer_ng/InnoNG_32/Installer/ISWin7.iss')
-rw-r--r-- | tools/installer_ng/InnoNG_32/Installer/ISWin7.iss | 85 |
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;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
|