Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Inno Setup (создание инсталяционных пакетов)

Модерирует : gyra, Maz

Widok (23-04-2007 18:02): лимит страниц. продолжаем здесь  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108

   

haav



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

 
 
Это мощное средство для создания установочных пакетов [дистрибутивов] программ. Поддерживается шифрование, установка пароля, различные задачи по завершении установки. Можно легко самим создавать диалоги, используя спец. дизайнер. И всё это абсолютно бесплатно! По сравнению с NullSoft [основной конкурент на бесплатной ниве] мне albel понравилась более интуитивно-понятная структура скрипта, простота в настройке.  
 
Последний релиз: 5.1.11 [1 Марта 2007 года]
История версий | скачать  
 
Русификатор от NightW0lf для версии 5.1.11  
Скачать | зеркало
 
Русская справка к версиям 5.0.xx
Скачать | зеркало || cкачать в .chm формате
И снова BagIra на высоте
 
Руководство по расширенным возможностям Inno Setup 5 [не для чайников] от Kindly
[3 версия]  
Скачать | зеркало
[4 версия]  
Скачать | зеркало
[5 версия]  
Скачать | зеркало
 
Inno Setup Extensions Knowledge Base  
Скачать | зеркало
 
Примечание: начиная с версии 5.1.10 в Inno Setup при использовании в инсталляторе фонового изображения формата BMP стало глючить возможность растягивания картинки на весь экран - чтобы это исправить добавьте этот код.
Если вы захотите использовать метод проверки внешнего файла через сумму MD5 [который описан в 5 версии руководства по программированию в Inno Setup] для запуска инсталлятора то вам понадобится калькулятор суммы MD5, калькулятор сумм MD5, SHA-256, CRC32. Если вы хотите узнать какие ключи в реестр вносит та или иная программа [или игра] то Вам понадобится RegShot.



Дополнительные утилиты для Inno Setup



ISTool
 
www.istool.org
 
Последний релиз: 5.1.8 [18 Октября 2006 года] New
Скачать | зеркало  
[как сказано в описании изменений, добавлена поддержка новых директив 5.1.8]
 
Русификатор
Скачать | зеркало


 
Распаковщик установок, сделанных с помощью Inno Setup. При распаковке извлекаются  ресурсы и скрипт установки [немного усечённый]. Возможно подключение к TotalCommander или FAR с помощью MultiArc плагинов.
 
Поддерживает распаковку инсталляторов, сделанных с помощью Inno Setup начиная с версии 3.0.0-beta по 5.1.10
 
Последний релиз: 0.19
Скачать | зеркало


 
Удобная оболочка для облегчения написания скриптов установки для INNO SETUP. Обладает некоторыми полезными функциями, которых нет ни у самого INNO, ни у ISTool.
 
Последний релиз: 5.1.6.9 [09 Июль 2006 года]
Скачать 4.2 мб | обновление 3.1 мб
 
Русификатор от GloThin
Скачать с сайта GloThin | Зеркало | Зеркало | зеркало
Пароль: ruboard
Примечание: офф. сайт косо отображается в Oper`е.
 
Новое название проекта на сайте, похоже произошла замена ScriptMaker на:
 
Inno Script Generator

Последний релиз: 1.02.5 [02 Апреля 2007 года]
Скачать | обновление
Примечание: обновление ставится только на Inno Setup Quickstartpack 5.1.11.

Всего записей: 67 | Зарегистр. 11-12-2001 | Отправлено: 15:23 09-10-2002 | Исправлено: NightW0lf, 15:16 15-04-2007
Genri

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
maxdddca123
Цитата:
нету случайно исходного кода страницы с выбором дирректории ?
-- нет. я стараюсь использовать стандартные возможности. Если речь идет об отсутствии в диалоге сетевого окружения, моего компьютера и документов, то эти вещи есть в диалоге выбора директорий (см. функцию BrowseForFolder). Но тогда надо перекрывать выбор по нажатию той же кнопки WizardForm.DirBrowseButton. Пример перекрытия я давал здесь

Всего записей: 872 | Зарегистр. 06-09-2003 | Отправлено: 15:18 16-01-2007
maxdddca123

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Genri
Спасибочки !!! Как обычно палочка выручалочка !

Всего записей: 211 | Зарегистр. 14-12-2006 | Отправлено: 15:30 16-01-2007
il

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
[Code]
function InitializeSetup(): Boolean;
begin
  Result := True;
  begin
    if not RegKeyExists(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v1.1.4322')
      or not RegKeyExists(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727')
      then
    begin
      if MsgBox('Внимание! На Вашем компьюторе не установлен Microsoft .NET Framework 1.1 или Microsoft .NET Framework 2.0.'#13#13'Вы уверены что хотите продолжить установку?', mbError, MB_YESNO) = idNo
        then
        Result := False;
    end;
  end;
end;  

 
а как сделать чтоб не конкретно версию NET Framework проверял, а только по первой цифре? то есть- 1.1, 2.0, 3.0...  
 
Я совсем в этом новичек, так что извиняйте...
Заранее спасибо

Всего записей: 38 | Зарегистр. 22-10-2001 | Отправлено: 15:36 16-01-2007
Sampron

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Сделал скин для инно в стиле Windows XP http://data.cod.ru/400981450

Всего записей: 563 | Зарегистр. 06-01-2007 | Отправлено: 15:51 16-01-2007
koc



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Sampron
изумительно! можно примерчик в студию?

Всего записей: 270 | Зарегистр. 04-03-2005 | Отправлено: 15:58 16-01-2007
Genri

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
il NightW0lf
Цитата:
определить, установлен ли .NET Framework и какая версия?

Майкрософт рекомендует использовать ключ HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\policy\vX.X
http://support.microsoft.com/kb/315291
 
...тоже рекомендуют и конкуренты из NSIS
http://nsis.sourceforge.net/How_to_Detect_.NET_Framework
 
...и тоже рекомендуют для Инно
http://www.vincenzo.net/isxkb/index.php?title=.NET_-_Detect_framework

Всего записей: 872 | Зарегистр. 06-09-2003 | Отправлено: 16:04 16-01-2007
Sampron

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
При использовании данного скина обязательно нужно прописывать этот код:
 
[Setup]
WizardImageFile=C:\WinXP.bmp
WizardSmallImageFile=C:\WinXP.bmp
 
[Code]
procedure InitializeWizard();
var
 Page: TWizardPage;
begin
WizardForm.BackButton.BringToFront;
WizardForm.NextButton.BringToFront;
WizardForm.CancelButton.BringToFront;
end;
 
 
Ссылка на файл: http://data.cod.ru/401243594

Всего записей: 563 | Зарегистр. 06-01-2007 | Отправлено: 16:27 16-01-2007
NightW0lf



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Genri
Спасибо за .NETFramework учту!
 
Добавлено:
Sampron
ОРОМОНОЕ тебе Спасибо за этот СКИН!
 
 
Добавлено:
Sampron
А возможно чтобы текст который раньше был на вверху, был и в твоем скине?

Всего записей: 479 | Зарегистр. 08-11-2006 | Отправлено: 17:06 16-01-2007 | Исправлено: NightW0lf, 18:09 16-01-2007
Sampron

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
NightW0lf
http://forum.ru-board.com/topic.cgi?forum=5&topic=4801&start=1320#15

Всего записей: 563 | Зарегистр. 06-01-2007 | Отправлено: 18:16 16-01-2007
NightW0lf



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sampron
Жаль что нельзя с текстом .

Всего записей: 479 | Зарегистр. 08-11-2006 | Отправлено: 18:25 16-01-2007
Sampron

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
NightW0lf

Цитата:
Жаль что нельзя с текстом

Можно! Я понял! Просто нужно было MainPanel растянуть на всю страницу а InnerNotebook вынести на передний план.
Качаем исправленый:http://data.cod.ru/402161098
 
P.S. Текста сверху на первой и последней странице нету и незнаю как сделать.
Кнопки переключения на странице лицензии и кнопку "Не создавать папку в меню пуск" сделать текст белого цвета тоже не смог.
 
Добавлено:
http://data.cod.ru/402161098

Всего записей: 563 | Зарегистр. 06-01-2007 | Отправлено: 19:15 16-01-2007
NightW0lf



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sampron
Спасибо! Текст теперь появился, осталось только доделать то что ты не смог БУДЕТ абсолютный клон InsatllSheild.
 
Добавлено:
Sampron
Посмотри личку.

Всего записей: 479 | Зарегистр. 08-11-2006 | Отправлено: 20:55 16-01-2007
Sampron

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
NightW0lf

Цитата:
Спасибо! Текст теперь появился, осталось только доделать то что ты не смог БУДЕТ абсолютный клон InsatllSheild.

Ну клон InsatllSheild-а я могу сделать а вот цвет текста в некоторых местах незнаю как.
 
 
Добавлено:
Люди нужна помощь как можно наложить текстуры (картинки в формате .bmp) на стандартные кнопки инно?

Всего записей: 563 | Зарегистр. 06-01-2007 | Отправлено: 21:34 16-01-2007
CapsLosk

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sampron
 
Да....жаль только во время установки нельзя свернуть в угол экрана!!!

Всего записей: 66 | Зарегистр. 11-01-2007 | Отправлено: 03:43 17-01-2007
Igimon

Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Sampron

Цитата:
Сделал скин для инно в стиле Windows XP http://data.cod.ru/400981450

Напоминает Инсталлятор Astrum InstallWizard 2 дополнительные темы, в том числе и в стиле InsatllSheild можно скачать на сайте правда они запакованы в инcталл EXE а сами графические файлы находятся в специальном формате извлечь можно с помощью Dialog Editor который едет в комплекте с инсталлятором Astrum InstallWizard 2

Всего записей: 785 | Зарегистр. 08-04-2005 | Отправлено: 07:09 17-01-2007 | Исправлено: Igimon, 07:11 17-01-2007
Sampron

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Igimon

Цитата:
Напоминает Инсталлятор Astrum InstallWizard 2

Так с него я и содрал
 
Добавлено:
CapsLosk

Цитата:
Да....жаль только во время установки нельзя свернуть в угол экрана!!!

Если ты про скин то можно, просто слегка нужно код подправить:
 
[Setup]
WindowVisible=yes
WindowShowCaption=no
WizardImageFile=C:\WinXP.bmp
WizardSmallImageFile=C:\WinXP.bmp
 
[Code]
procedure InitializeWizard();
var
 Page: TWizardPage;
begin
WizardForm.BackButton.BringToFront;
WizardForm.NextButton.BringToFront;
WizardForm.CancelButton.BringToFront;
WizardForm.InnerNotebook.BringToFront;
end;
 
procedure CurPageChanged(CurPageID: Integer);
begin
 if CurPageID=wpInstalling
then
begin
  WizardForm.MainPanel.Visible:=False;
  WizardForm.Width:=ScaleX(395);
  WizardForm.Height:=ScaleY(142);
//Здесь смещение страницы установки (в верхний левый угол)
  WizardForm.Left:=ScaleX(0);
  WizardForm.Top:=ScaleY(0);
 
{Выводит в правом верхнем углу экрана}
//WizardForm.Left:=ScaleX(MainForm.Width-420);
//WizardForm.Top:=ScaleY(MainForm.Left+20);
 
{Выводит снизу по центру экрана}
//WizardForm.Position:=poScreenCenter;
//WizardForm.Top:=ScaleY(MainForm.Height-170);
 
{Выводит в нижнем левом углу}
//WizardForm.Left:=ScaleX(MainForm.Left+20);
//WizardForm.Top:=ScaleY(MainForm.Height-170);
 
{Выводит в нижнем правом углу}
//WizardForm.Left:=ScaleX(MainForm.Width-420);
//WizardForm.Top:=ScaleY(MainForm.Height-170);
 
  WizardForm.InnerNotebook.Left:=ScaleX(10);
  WizardForm.InnerNotebook.Top:=ScaleY(10);
  WizardForm.InnerNotebook.Width:=ScaleX(370);
  WizardForm.StatusLabel.Left:=ScaleX(0);
  WizardForm.StatusLabel.Top:=ScaleY(0);
  WizardForm.StatusLabel.Width:=WizardForm.InnerNotebook.Width;
  WizardForm.FileNameLabel.Left:=ScaleX(0);
  WizardForm.FileNameLabel.Top:=ScaleY(20);
  WizardForm.FileNameLabel.Width:=WizardForm.InnerNotebook.Width;
  WizardForm.ProgressGauge.Left:=ScaleX(0);
  WizardForm.ProgressGauge.Top:=ScaleY(40);
  WizardForm.ProgressGauge.Width:=WizardForm.InnerNotebook.Width;
  WizardForm.CancelButton.Left:=ScaleX(154);
  WizardForm.CancelButton.Top:=ScaleY(80);
end
if CurPageID=wpFinished
 then
  begin
  WizardForm.Width:=616;{Размер окна по горизонтали}
  WizardForm.Height:=452;{Размер окна по вертикали}
  WizardForm.Position:=poScreenCenter; {Возврат в исходное состояние}
 end
end;

Всего записей: 563 | Зарегистр. 06-01-2007 | Отправлено: 10:21 17-01-2007
DroN_S

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sampron
да, скин конечно хорош, но как снести BeveledLabel чуть ниже, а то накладка получается...

Всего записей: 1143 | Зарегистр. 09-04-2005 | Отправлено: 11:48 17-01-2007
AtotIK



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Вот...Собрал из кусков... Присутствуют и мои нароботки.
 

Цитата:
 
;Интерфейс установки максимально приближенный к InstallShield (я так думаю) реализованный стандартными (почти ) средствами Inno Setup. Для создания слйд-шоу используется библиотека IsXbb.
;Используется Splash-заставка.
;При запуске инсталлятора отсутствует "мозолящий" глаза синий фон и имя программы.
;Скачать IsXbb.dll можно с http://www.istool.org или http://data.cod.ru/381517258. Размер - ~33 Кб.
 
[Setup]
DisableProgramGroupPage=yes
WindowShowCaption=no  
BackColor=$000000
 
[Files]
;Рисунок используемый для отображения на странице подготовки (увидете - поймёте)
Source: "C:\Program Files\Inno Setup 5\WizModernSmallImage.bmp"; DestDir: {tmp}; Flags: dontcopy;
;Так же используется на странице подготовки как Splash-заставка
Source: "Temp\Splash.bmp"; DestDir: {tmp}; Flags: dontcopy;
;В качестве фона используется изоброжение в формате .bmp. Уменьшить размер файла (почти без видимых потерь) монжо в Adobe Photoshop (Image => Mode => Idexed Color => Palette: Local (_ANY_))
Source: "Temp\Image.bmp"; DestDir: {tmp}; Flags: dontcopy;
;Библиотека для создания слайд-сшоу
Source: "Temp\IsXbb.dll"; DestDir: {tmp}; Flags: dontcopy;
;Файлы для слайд-сшоу (их может быть и больше)
Source: "Temp\1.jpg"; DestDir: {tmp}; Flags: dontcopy;
Source: "Temp\2.jpg"; DestDir: {tmp}; Flags: dontcopy;
Source: "Temp\3.jpg"; DestDir: {tmp}; Flags: dontcopy;
Source: "Temp\4.jpg"; DestDir: {tmp}; Flags: dontcopy;
Source: "Temp\5.jpg"; DestDir: {tmp}; Flags: dontcopy;
;Файлы проекта
Source: "Work\*.*"; DestDir: "{app}"; Flags: overwritereadonly ignoreversion recursesubdirs createallsubdirs;
 
[Code]
const
{"1,2,3,4" - в разных углах, "5" - по центру, "6" - растянуть изображения}
  BACKGROUND=6;
  TIMER=16;
 
function isxbb_AddImage(Image: PChar; Flags: Cardinal): Integer;
external 'isxbb_AddImage@files:isxbb.dll stdcall';
 
function isxbb_Init(hWnd: Integer): Integer;
external 'isxbb_Init@files:isxbb.dll stdcall';
 
function isxbb_StartTimer(Seconds: Integer; Flags: Cardinal): Integer;
external 'isxbb_StartTimer@files:isxbb.dll stdcall';
 
function isxbb_KillTimer(Flags: Cardinal): Integer;
external 'isxbb_KillTimer@files:isxbb.dll stdcall';
 
function GetSystemMetrics(nIndex:Integer):Integer;  
external 'GetSystemMetrics@user32.dll stdcall';  
 
var
  Splash: TSetupForm;
 
procedure InitializeWizard();  
var
  BackgroundBitmapImage: TBitmapImage;  
  s: string;
  Form: TSetupForm;
  Width, Height: Integer;  
  ProgressBar: TNewProgressBar;
  CancelButton: TButton;  
  StaticText: TNewStaticText;  
  BitmapImage: TBitmapImage;
  BitmapImage1: TBitmapImage;  
  BitmapFileName: String;  
  i: Integer;  
begin
  WizardForm.Position:= poScreenCenter;
  MainForm.BORDERSTYLE := bsNone;
  Splash:= CreateCustomForm;  
  Splash.BorderStyle:= bsNone;  
  BitmapImage1:= TBitmapImage.Create(Splash);  
With BitmapImage1 do
begin  
  AutoSize:= True;  
  Align:= alClient;  
  Left:= 0;  
  Top:= 0;  
  Stretch:= True;  
  Parent:= Splash;  
end;
  ExtractTemporaryFile('Splash.bmp');  
  BitmapImage1.Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Splash.bmp');  
  Splash.Width:= BitmapImage1.Width;  
  Splash.Height:= BitmapImage1.Height;  
  Splash.Center;  
  Splash.Show;  
  BitmapImage1.Refresh;  
  Form:= CreateCustomForm();  
try  
with Form do  
begin  
  ClientWidth:= ScaleX(380);  
  ClientHeight:= ScaleY(120);  
  BorderStyle:= bsDialog;  
  Left:= GetSystemMetrics(16) - ClientWidth  -  ScaleX(8);  
  Top:= GetSystemMetrics(17) - ClientHeight  - ScaleY(8);  
end;
  BitmapFileName:= ExpandConstant('{tmp}\WizModernSmallImage.bmp');
  ExtractTemporaryFile(ExtractFileName(BitmapFileName));  
  BitmapImage:= TBitmapImage.Create(Form);  
  BitmapImage.Left:= ScaleX(8);  
  BitmapImage.Top:= ScaleY(8);  
  BitmapImage.AutoSize:= True;  
  BitmapImage.Bitmap.LoadFromFile(BitmapFileName);  
  BitmapImage.Parent:= Form;  
  StaticText:= TNewStaticText.Create(Form);  
  StaticText.Top:= BitmapImage.Top;  
  StaticText.Left:= BitmapImage.Left + BitmapImage.Width + ScaleX(8)
{Надпись которая будет отображатся на странице поготовки}
  StaticText.Caption := ''#10#13'"______" now preparing to install...';  
  StaticText.AutoSize:= True;  
  StaticText.Parent:= Form;  
  CancelButton:= TButton.Create(Form);  
  CancelButton.Parent:= Form;  
  CancelButton.Width:= ScaleX(75);  
  CancelButton.Height:= ScaleY(23);  
  CancelButton.Left:= Form.ClientWidth - ScaleX(75 + 10);  
  CancelButton.Top:= Form.ClientHeight - ScaleY(23 + 10);  
  CancelButton.Caption:= 'Cancel';  
  CancelButton.ModalResult:= mrCancel;  
  CancelButton.Cancel:= True;
  Form.Caption:= 'Prepering...';  
  ProgressBar:= TNewProgressBar.Create(Form);  
with ProgressBar do  
begin  
  Height:= CancelButton.Height - ScaleY(8);  
  Width:= Form.Width - ScaleX(128);  
  Top:= CancelButton.Top;  
  Left:= BitmapImage.Left;  
  Parent:= Form;  
  Min:= 0;  
  Max:= 30;  
  Position:= 0;  
end;
  Form.ActiveControl:= CancelButton;  
  Form.Show();  
for i:= 0 to 30 do  
begin  
  ProgressBar.Position:= i;  
  Form.Repaint;  
  Sleep(400);  
  i:= i + 2;  
end;  
finally  
  Form.Free();
  Splash.Close;
  Width:= GetSystemMetrics(0);  
  Height:= GetSystemMetrics(1);  
  MainForm.Width:= width;  
  MainForm.Height:= height;  
  Width:= MainForm.ClientWidth;  
  Height:= MainForm.ClientHeight;
  ExtractTemporaryFile('Image.bmp');
  s:= ExpandConstant('{tmp}') + '\Image.bmp';
  BackgroundBitmapImage:= TBitmapImage.Create(MainForm);  
  BackgroundBitmapImage.Bitmap.LoadFromFile(s);  
  BackgroundBitmapImage.Left:= 0;  
  BackgroundBitmapImage.Top:= 0;  
  BackgroundBitmapImage.Width:= width;  
  BackgroundBitmapImage.Height:= height;  
  BackgroundBitmapImage.Parent:= MainForm;  
  BackgroundBitmapImage.Stretch:= True;
{Не забудте прописать здесь и ниже правильные имена и количество файлов для слайд-шоу!}
  ExtractTemporaryFile('1.jpg');
  ExtractTemporaryFile('2.jpg');
  ExtractTemporaryFile('3.jpg');
  ExtractTemporaryFile('4.jpg');
  ExtractTemporaryFile('5.jpg');  
  MainForm.Visible := True;  
end;
end;
 
procedure CurStepChanged(CurStep: TSetupStep);
begin
  If CurStep=ssInstall
then
begin
  isxbb_AddImage(ExpandConstant('{tmp}')+'\1.jpg',BACKGROUND or TIMER);
  isxbb_AddImage(ExpandConstant('{tmp}')+'\2.jpg',BACKGROUND or TIMER);
  isxbb_AddImage(ExpandConstant('{tmp}')+'\3.jpg',BACKGROUND or TIMER);
  isxbb_AddImage(ExpandConstant('{tmp}')+'\4.jpg',BACKGROUND or TIMER);
  isxbb_AddImage(ExpandConstant('{tmp}')+'\5.jpg',BACKGROUND or TIMER);
  isxbb_Init(StrToInt(ExpandConstant('{hwnd}')));
{Указывается время отображения на экране каждого изображения}
  isxbb_StartTimer(8,BACKGROUND)
end
else
  If CurStep=ssPostInstall
then
  isxbb_KillTimer(BACKGROUND);
end;
 
procedure CurPageChanged(CurPageID: Integer);
var
  Width, Height: Integer;
begin
  If CurPageID=wpInstalling
then
begin
{Здесь размер окна установки уменьшается, с него убирается всё лишнее и оно смещается в нижний правый угол экрана (не зависит от разрешения)}
  WizardForm.CancelButton.BringToFront;
  WizardForm.MainPanel.Visible:= False;
  WizardForm.Bevel1.Visible:= False;
{Размер получемого окна установки}
  Width:= ScaleX(395);  
  Height:= ScaleY(150);  
  WizardForm.Left:= GetSystemMetrics(16) - Width  -  ScaleX(5);  
  WizardForm.Top:= GetSystemMetrics(17) - Height  - ScaleY(-50);  
  WizardForm.Width:= ScaleX(395);
  WizardForm.Height:=ScaleY(150);
  WizardForm.InnerNotebook.Left:= ScaleX(10);
  WizardForm.InnerNotebook.Top:= ScaleY(10);
  WizardForm.InnerNotebook.Width:= ScaleX(370);
  WizardForm.StatusLabel.Left:= ScaleX(0);
  WizardForm.StatusLabel.Top:= ScaleY(0);
  WizardForm.StatusLabel.Width:= WizardForm.InnerNotebook.Width;
  WizardForm.FileNameLabel.Left:= ScaleX(0);
  WizardForm.FileNameLabel.Top:= ScaleY(20);
  WizardForm.FileNameLabel.Width:= WizardForm.InnerNotebook.Width;
  WizardForm.ProgressGauge.Top:= ScaleY(40);
  WizardForm.ProgressGauge.Width:= WizardForm.InnerNotebook.Width;
  WizardForm.CancelButton.Left:= ScaleX(154);
  WizardForm.CancelButton.Top:= ScaleY(80);
end
if CurPageID=wpFinished
then
begin
{Окно установки принимает стандартный вид}
  WizardForm.Width:=502;
  WizardForm.Height:=392;
  WizardForm.Position:=poScreenCenter;
end
end;
 

 
Добавлено:
Здесь хорошо то, что Splash отоброжается на странице подготовки...Как в InstallSield.

Всего записей: 138 | Зарегистр. 17-09-2006 | Отправлено: 14:34 17-01-2007
maxdddca123

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Genri
Посмотри пожалуйста личные сообщения, очень нужна твоя помощь !

Всего записей: 211 | Зарегистр. 14-12-2006 | Отправлено: 15:29 17-01-2007
il

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
il NightW0lf

 
Спасибо, будем копать ))

Всего записей: 38 | Зарегистр. 22-10-2001 | Отправлено: 15:52 17-01-2007
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108

Компьютерный форум Ru.Board » Компьютеры » Программы » Inno Setup (создание инсталяционных пакетов)
Widok (23-04-2007 18:02): лимит страниц. продолжаем здесь


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.Board
© Ru.Board 2000-2020

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru