diff options
| author | Vadim Dashevskiy <watcherhd@gmail.com> | 2013-10-27 21:56:10 +0000 |
|---|---|---|
| committer | Vadim Dashevskiy <watcherhd@gmail.com> | 2013-10-27 21:56:10 +0000 |
| commit | 2e4bc75def474025b0d7632afecf7b551e3431fa (patch) | |
| tree | 4077a4b6049ac977e34cc9d7ab246a33ab0305e0 /tools/installer_ng_stable/Common/Installer/ISWin7.iss | |
| parent | 7db6db8e02b6ed690f2b117a59b9240a7462a31f (diff) | |
stable version installer scripts
git-svn-id: http://svn.miranda-ng.org/main/trunk@6651 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'tools/installer_ng_stable/Common/Installer/ISWin7.iss')
| -rw-r--r-- | tools/installer_ng_stable/Common/Installer/ISWin7.iss | 85 |
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;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|