» Inno Setup (создание инсталяционных пакетов)

Цитата:

Как разбить выбор дополнительных задач на две страницы? Чтобы определенные на одной находились, а остальные на другой?

Кто-нибудь поможет???

Chanka
А возможно вернуть название обратно в окно устаноки, а то из-за твоих изменений оно пропало?
Если вопрос не понятен то вот скиры
Как надо
Как стало

см. на заголовок окна

Добавлено:
Исправлено:
И еще можно сделать так чтобы при вставки в фоновое изображение JPG картинки не было синей формы, а то просто хочу сделать а как не знаю?

NightW0lf,

Цитата:

А возможно вернуть название обратно в окно устаноки, а то из-за твоих изменений оно пропало?

Так убери из скрипта windowvisible=yes

Цитата:

И еще можно сделать так чтобы при вставки в фоновое изображение не было синей формы, а то просто хочу сделать а как не знаю?

Не понял вопрос

Chanka

Цитата:

Так убери из скрипта windowvisible=yes

Без этого не работает твой пропатченный файл "Setup.e32"!
Т.е. вообще не чего что в твоем патче должно появляется не появляется

Цитата:

Не понял вопрос

Исправил!

NightW0lf,
Фаил Setup.e32 тут не причём. Когда включаешь windowvisible=yes, то надпись всегда меняется. Попробуй это исправить в файле Russian.isl или какой ты используешь

XuM
Цитата:

при запуске repair ниче не рапаиртся, если делать модифай-все компоненты показываются, как невыбранные

[more=Здесь]
Код:
[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DisableProgramGroupPage=yes
AppId=MyProgram
AppModifyPath="{app}\UninsHs.exe" /m=MyProgram

[Components]
Name: "main"; Description: "Main Files"; Types: full compact custom; Flags: fixed
Name: "english"; Description: "English"; Types: full; Flags: DisableNoUninstallWarning
Name: "dutch"; Description: "Dutch"; Types: full; Flags: DisableNoUninstallWarning

[Dirs]
Name: "{app}\SRC"

[Files]
Source: "MyProg.exe"; DestDir: "{app}"; Components: main
Source: "Readme.txt"; DestDir: "{app}"; Components: english
Source: "Readme-Dutch.txt"; DestDir: "{app}"; Components: dutch
Source: "UninsHs.exe"; DestDir: "{app}"; Flags: restartreplace

[InstallDelete]
Type: Files; Name: "{app}\Readme.txt"
Type: Files; Name: "{app}\Readme-Dutch.txt"

[UninstallDelete]
Type: filesandordirs; Name: "{app}\SRC"

[Run]
Filename: {app}\UninsHs.exe; Parameters: /r=MyProgram,{language},{srcexe},{app}\SRC\setup.exe; Flags: runminimized runhidden nowait

[Code]
function ShouldSkipPage(CurPage: Integer): Boolean;
begin
if Pos('/SP-', UpperCase(GetCmdTail)) > 0 then
case CurPage of
wpLicense, wpPassword, wpInfoBefore, wpUserInfo,
wpSelectDir, wpSelectProgramGroup, wpInfoAfter:
Result := True;
end;
end;

Народ а как можно сделать маленькую страницу с прогресс-баром в правом нижнем углу экрана типа "Подготовка к установке" как в InstallShield?

Genri
Глянь личку ПЛИЗЗЗ!

Добавлено:
var
Form: TForm;

function ShowWindow(hWnd: LongWord; nCmdShow: LongWord): LongWord;
external 'ShowWindow@user32.dll stdcall';

procedure FormOnActivate(Sender: TObject);
begin
WizardForm.Show;
end;

function InitializeSetup(): Boolean;
begin
Form := CreateCustomForm();
Form.BorderStyle:= bsNone;
Form.Color:= clGreen;
ShowWindow(Form.Handle, SW_SHOWMAXIMIZED);

Result:= True;
end;



Как наложить картинку чтоб она прорисовывалась вместе с формой, за тем закрывала панель задач???

Добавлено:
Genri
Вот скрипт, который ты давал:


[Files]
// Копирование *.dll для демонстрации
Source: {sys}\*.dll; DestDir: {tmp}; Flags: external
Source: innocallback.dll; DestDir: {tmp}; Flags: dontcopy
Source: pic1.bmp; DestDir: {tmp}; Flags: dontcopy
Source: pic2.bmp; DestDir: {tmp}; Flags: dontcopy

[Code]
type
TProc = procedure(HandleW, msg, idEvent, TimeSys: LongWord);

var
BackgroundBitmapImage: TBitmapImage;
TimerID: LongWord;

function WrapTimerProc(callback:TProc; paramcount:integer):longword;
external 'wrapcallback@files:innocallback.dll stdcall';

function SetTimer(hWnd: LongWord; nIDEvent, uElapse: LongWord; lpTimerFunc: LongWord): LongWord;
external 'SetTimer@user32.dll stdcall';

function KillTimer(hWnd: LongWord; nIDEvent: LongWord): LongWord;
external 'KillTimer@user32.dll stdcall';


procedure InitializeWizard();
begin
ExtractTemporaryFile('pic1.bmp');
ExtractTemporaryFile('pic2.bmp');
end;


function PercentProgress(): Integer;
begin
with WizardForm.ProgressGauge do
begin
Result:= (Position-Min)/((Max - Min)/100) ;
end;
end;

procedure OnTimer(HandleW, msg, idEvent, TimeSys: LongWord);
var
percent: integer;

begin
percent:= PercentProgress;
with BackgroundBitmapImage do
begin
if ((percent > 0) and (percent < 10) and (Tag <> 1)) then
begin
Bitmap.LoadFromFile(ExpandConstant('{tmp}') + '\pic1.bmp');
Tag:= 1;
end else
if ((percent > 11) and (percent < 20) and (Tag <> 2)) then
begin
Bitmap.LoadFromFile(ExpandConstant('{tmp}') + '\pic2.bmp');
Tag:= 2;
end;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
var
pfunc: LongWord;

begin
if CurPageID = wpInstalling then
begin
pfunc:= WrapTimerProc(@OnTimer, 4);
TimerID:= SetTimer(0, 0, 500, pfunc);

BackgroundBitmapImage := TBitmapImage.Create(MainForm);
with BackgroundBitmapImage do
begin
Left := 50;
Top := 100;
AutoSize := True;
Center := True;
Parent := MainForm;
Bitmap.LoadFromFile(ExpandConstant('{tmp}') + '\pic1.bmp');
Tag:= 1;
end;
end;
end;

procedure DeinitializeSetup();
begin
KillTimer(0, TimerID);
end;



Подскажи ПОЖАЛУЙСТО - как сделать тоже самое но с pic.jpg т.е с расширением jpg
Заранее благодарен!!!

Genri

Цитата:

-- Согласен. Пару мелочей упустил. Но, думаю, общее направление тебе понятно.

Да, всё разобрался, но остался 1 вопрос: а можно сделать, что бы после нажатия на кнопку вылезало стандартное окно винды для печати ? Например как в ворде файл - печать ? Что бы можно было принтер выбрать итп ...

Цитата:

[Files]
Source: C:\Splash.bmp; DestDir: {tmp}; Flags: dontcopy

[Code]
var Splash : TSetupForm;
function InitializeSetup(): Boolean;
var
BitmapImage1 : TBitmapImage;
begin
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;
Sleep(3000); ///Время показа (здесь 3 секунды)
Result := True;
end;
procedure InitializeWizard();
begin
Splash.Close;
end;

Возможно ли появление splash с каким либо эффектом (например плавное проявление) может с помощью какойнибудь dll


Добавлено:
Я посмотрел тут...есть интересные темы
Chanka

Цитата:

У меня он тогда был. Я хотел её выложить, но вспомнил обещание, которое дал НИКОМУ! И если бы я её выложил сразу бы стало ясно, кто это сделал. Потому что там кое-что есть чего нет в той версии, которую ты собрал. Надеюсь понятно объяснил.
А насчёт выходных я было уже хотел нарушить обещание, но вспомнил о маге и волшебнике Genri Да и инет у меня сейчас такой может токо принимать.

Цитата:

Может ктонить выложить исходник пропадченой Setup.e32


ЭТО ЗАПРЕЩЕНО. Вот тут я своё слово нарушить не могу.

Цитата:

Всё будет. В субботу или в воскресенье выложу.
А теперь очень прошу помочь мне: кто умеет работать с ДЕЛЬФИ как с помощью этого инструмента собрать инсталлятор. Я скачал исходники с сайта, но вот собрать их у меня не получается. Очень-очень прошу помочь. Главное это получить фаил Setup.e32

Прямо детский сад какойто...я так понял его вооще Genri скомпилил..
Ладно..раз ты такой "добрый" и не можешь выложить, тогда сделай сам чтоб рисунки не из папки Res брались, а например из Res.bin (из архива) - Смысл в том чтоб какнить скрыть эту папку от постороних глаз.
С УВАЖЕНИЕМ!!!


Добавлено:
Chanka

Цитата:

Я скачал исходники с сайта, но вот собрать их у меня не получается. Очень-очень прошу помочь.

Я так понял ты и сам скачал исходник...дак скинь ссылочку - Будь любезен!

Sampron

Цитата:

Народ а как можно сделать маленькую страницу с прогресс-баром в правом нижнем углу экрана типа "Подготовка к установке" как в InstallShield?

procedure InitializeWizard();
begin
//Переносим кнопку "Отмена" на передний план
WizardForm.CancelButton.BringToFront;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID=wpInstalling
then
begin
WizardForm.MainPanel.Visible:=False;
WizardForm.Bevel1.Visible:=False;
WizardForm.Width:=ScaleX(226); //Длина переносимого главного окна индикатора установки.
WizardForm.Height:=ScaleY(89); //Высота переносимого главного окна индикатора установки.

//Здесь смещение страницы установки (в верхний левый угол)
WizardForm.Left:=ScaleX(0);
WizardForm.Top:=ScaleY(0);
{Внимание! Нижеописанные способы смещения работают только когда вставлено фоновое изображение или WindowVisible=yes}
{Выводит в правом верхнем углу экрана}
//WizardForm.Left:=ScaleX(MainForm.Width-420);
//WizardForm.Top:=ScaleY(MainForm.Left+20);

{Выводит снизу по центру экрана}
//WizardForm.Position:=poScreenCenter;
//WizardForm.Top:=ScaleY(MainForm.Height-170);

{Выводит в нижнем левом углу (как в Doom 3 Resurrection of Evil от 1C)}
//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(6); //Отступ от левого края, в главном окне индикатора установки, самого индикатора установки.
WizardForm.InnerNotebook.Top:=ScaleY(5); //Отступ от верхнего края, в главном окне индикатора установки, самого индикатора установки (Вместе с кнопкой //Отмена).
WizardForm.InnerNotebook.Width:=ScaleX(122); //Длина индикатора установки
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(14); //Отступ сверху в главном окне, индикатора установки, пояснений: путь распаковки файлов (верхняя строка).
WizardForm.FileNameLabel.Width:=WizardForm.InnerNotebook.Width;
WizardForm.ProgressGauge.Top:=ScaleY(29); //Отступ от верхнего края, в главном окне индикатора установки, самого индикатора установки.
WizardForm.ProgressGauge.Width:=WizardForm.InnerNotebook.Width;
WizardForm.CancelButton.Left:=ScaleX(134); //Отступ слева кнопки: Отмена.
WizardForm.CancelButton.Top:=ScaleY(33); //Отступ сверху кнопки: Отмена.
end;
if CurPageID=wpFinished
then
begin
WizardForm.Width:=502; //Размер окна по горизонтали
WizardForm.Height:=392; //Размер окна по вертикали
WizardForm.Position:=poScreenCenter; //Возврат в исходное состояние
end;
end;


Но это будет только при фоновой картинке

GRom V
Ты меня не понял, я имел в виду появление страницы подготовки с индикатором с задержкой на 5-7 секунд а потом уже появление страницы приветствия.

Цитата:

-- чтож ты такой нетерпеливый
Почитай в хелпе по поводу CreateInputOptionPage

В каком хелпе?

Вся эта возня вокруг патченных исходников, напоминает старушечью склоку, участвовать в которой я не собираюсь.
А кое-кому, следует научиться уважать чужой труд. Я имею ввиду не то, что я сделал, а труд разработчиков Inno Setup, которые проделав великолепную работу, совершенно свободно и бесплатно выкладывают ее для всеобщего пользования вместе с исходниками. И добавив туда две строчки, считать что теперь это мое личное, по меньшей мере неэтично.

Добавлено:
BAPK
Цитата:

В каком хелпе?

-- Inno Setup Help

Genri

Цитата:

В каком хелпе?

Нашел. К Inno Setup. Но я дукак совсем не работающий с кодом и использующий в основе своей ISTool? мне бы примерчик, на примере кода я бы сам соориентировался. ))) Можете кто-нибудь проект с таким решением мне скинуть? Mail: Bapk@narod.ru

GRom V
Вот пример той страницы перед установкой http://data.cod.ru/rus/7/8/5/374898122_91777312587/1.JPG
А насчёт страницы установки было бы неплохо вот такую http://data.cod.ru/rus/9/5/7/374963658_58266098759/2.JPG

Помогите пожалуйста с таким вопросом:
значит надо создать кнопку Обзор на отдельной странице для выбора каталога установкии что бы после выбора папки, куда пользователь хочет установить прогу, путь к этой папке прописывался в реестр. Как это сделать подскажите плиз срочно надо !

Добавлено:
Саму кнопку уже сделал добавил. Теперь осталось что бы при нажатии вызывалось FolderTreeView и записывался в реестр путь.... Жду Вашей помощи господа !!!

CapsLosk

Цитата:

Возможно ли появление splash с каким либо эффектом (например плавное проявление) может с помощью какойнибудь dll

Да возможно, НО для этого есть специальная прога.
Если надо могу выложить

Добавлено:
maxdddca123

Цитата:

Саму кнопку уже сделал добавил. Теперь осталось что бы при нажатии вызывалось FolderTreeView и записывался в реестр путь.... Жду Вашей помощи господа !!!

[more=Вот что-то вроде нашел]

Код:
Многие программы имеют отдельные папки с проектами. Эти папки указываются либо программой, либо программой установки. Мы попытаемся сделать страничку, где пользователю будет предложено выбрать путь к папке с проектами. Помимо создаваемой папки, инсталлятор пропишет в реестр (нужно знать программе) путь ее расположения.
[Dirs]
;Создание указанной папки, которую не будем деинсталлировать в дальнейшем
Name: {code:GetDataDir}; Flags: uninsneveruninstall

[Registry]
;Пример записи указанной папки в реестр
Root: HKCU; Subkey: "Software\Indigo Rose\AutoPlay Media Studio 6.0"; ValueType: string; ValueName: "InstallProjectsFolder"; ValueData: "{code:GetDataDir}"

[Code]
//Определяем дополнительную страницу (с кнопкой «Обзор…»)
var
DataDirPage: TInputDirWizardPage;

procedure InitializeWizard();
begin
//Создание дополнительной страницы после указанной wpSelectProgramGroup
DataDirPage := CreateInputDirPage(wpSelectProgramGroup,
'Выбор папки с проектами', 'В какой папке будут находиться ваши проекты?',
'Пожалуйста, укажите папку, в которой будут сохранены проекты программы.'#13#13'Путь к папке с проектами может быть изменен в "Правка">"Предпочтения".',
False, '');
DataDirPage.Add('');
DataDirPage.Values[0] := GetPreviousData('DataDir', '');
end;

function NextButtonClick(CurPage: Integer): Boolean;
begin
if DataDirPage.Values[0] = ''
then
//Указываем путь папки с проектами по умолчанию
DataDirPage.Values[0] := (ExpandConstant('{userdocs}')+'\AutoPlay Media Studio 6.0 Projects');
Result := True;
end;

function GetDataDir(Param: String): String;
begin
Result := DataDirPage.Values[0];
end;

//Это страница, в которой отображаются выбранные параметры установки
//Чтобы в нее прописать указанный путь установки папки с проектами, пишем следующую функцию
//По необходимости указываем дополнительные параметры установки (компоненты и т.п.)
function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo,
MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;
var
S: String;
begin
S := S + MemoDirInfo;
S := S + NewLine + NewLine;
S := S + MemoGroupInfo;
S := S + NewLine + NewLine;
S := S + 'Папка с проектами:' + NewLine + Space;
S := S + DataDirPage.Values[0];
S := S + NewLine + NewLine;
S := S + MemoTasksInfo;
Result := S;
end;

2 CapsLosk


Цитата:

Возможно ли появление Splash с каким-либо эффектом (например плавное проявление) может с помощью какой-нибудь dll?

Эту прогу я уже выкладывал. Ссылка - Вот.

Инструкция по пользованию в архиве.

NightW0lf
Наполовину тока.... С реестером впринципе частично подойдёт, а вот с кнопкой никак. Здесь создаётся новая страница, а мне надо тока процедуру при нажатии на кнопку... Но спасибочки всёравно.

Цитата:

Как разбить выбор дополнительных задач на две страницы? Чтобы определенные на одной находились, а остальные на другой?

Ну помогите дураку, а...

2 BAPK

Зависит от того, что ты хочешь перенести на отдельную станицу, и каким образом это реализуется.

AtotIK

Цитата:

Зависит от того, что ты хочешь перенести на отдельную станицу, и каким образом это реализуется.

Выбор одной из 4 взаимоисключающих задач и все.

Добавлено:
[Tasks]
Name: Kabinet; Description: Kabinet; GroupDescription: Subnets; Flags: exclusive unchecked; Languages:
Name: Skynet; Description: Skynet; GroupDescription: Subnets; Flags: exclusive unchecked; Languages:
Name: Convex_Olympus; Description: Convex, Olympus; GroupDescription: Subnets; Flags: exclusive unchecked; Languages:
Name: Planet_Extrim_Insis_Infotek; Description: Planet, Extrim, Insis, Infotek; GroupDescription: Subnets; Flags: exclusive; Languages:

Вот 4 задачи, надо их вынести на отдельную страницу...

А можно как нибудь сделать чтобы Logo.exe от AtotIK запускалось до начала запуска инсталлятора пропатченным Chanka?

P.S. Ранеше работало нормально а вот теперь сначала запускается инсталлятор, а уже потом запускается Logo.exe, НО зато Splash.bmp от Sampron работает нормально.

Заранее благодарю!

Народ, как сделать так, что бы при нажатии Ок на странице выбора дирректории BrowseForFolder инсталлятор переходил сразу на следующую страницу ? А то сейчас надо нажимать кнопку для перехода Next...

Чтобы окончательно закрыть вопрос по поводу патченных исходников, выкладываю полный комплект (Chanka можешь не беспокоится - твоего там ничего нет).
Скачать можно здесь(3,5 Мб). В архиве исходники с изменениями, откомпиленные файлы и пример по использованию (JPG_Progress.iss). Те, кто не дружит с делфями, могут взять два файла из папки EXE и скопировать их в папку куда установлена Inno Setup.

Добавлены две процедуры:

procedure ProgressChanged(percent: Integer); -- вызывается каждый раз, когда апдейтится прогресс-бар. percent содержит текущее значение прогресс-бара в процентах

MainForm.SetBackImage(str: String); -- позволяет задать в качестве фона *.jpg. Если str содержит пустое значение, картинка убирается.

[more=Здесь]
Код:
[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
WindowVisible=yes

[Files]
Source: Files\*.*; DestDir: {app}; Flags: ignoreversion recursesubdirs
Source: Files_ext\1.jpg; Flags: dontcopy
Source: Files_ext\2.jpg; Flags: dontcopy
Source: Files_ext\main.jpg; Flags: dontcopy

[Code]
var
CurPicture: integer;

function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('1.jpg');
ExtractTemporaryFile('2.jpg');
ExtractTemporaryFile('main.jpg');
Result:= True;
end;

procedure InitializeWizard();
begin
MainForm.SetBackImage(ExpandConstant('{tmp}\main.jpg'));
end;

procedure ProgressChanged(percent: Integer);
var
str: string;
begin
if ((percent > 0) and (percent < 30) and (CurPicture <> 1)) then
begin
str:= ExpandConstant('{tmp}\1.jpg');
MainForm.SetBackImage(str);
CurPicture:= 1;
end else
if ((percent > 30) and (percent < 60) and (CurPicture <> 2)) then
begin
str:= ExpandConstant('{tmp}\2.jpg');
MainForm.SetBackImage(str);
CurPicture:= 2;
end else
if ((percent > 60) and (percent < 100) and (CurPicture <> 3)) then
begin
MainForm.SetBackImage('');
CurPicture:= 3;
end;
end;

И все таки вообще возможно убрать эту синию форму с названием программы которая появляется перед *.jpg фоном.

Цитата:

Выбор одной из 4 взаимоисключающих задач и все.

Добавлено:
[Tasks]
Name: Kabinet; Description: Kabinet; GroupDescription: Subnets; Flags: exclusive unchecked; Languages:
Name: Skynet; Description: Skynet; GroupDescription: Subnets; Flags: exclusive unchecked; Languages:
Name: Convex_Olympus; Description: Convex, Olympus; GroupDescription: Subnets; Flags: exclusive unchecked; Languages:
Name: Planet_Extrim_Insis_Infotek; Description: Planet, Extrim, Insis, Infotek; GroupDescription: Subnets; Flags: exclusive; Languages:

Вот 4 задачи, надо их вынести на отдельную страницу...

Ну я ведь знаю, что это не сложно сделать, только как???

BAPK
Цитата:

Вот 4 задачи, надо их вынести на отдельную страницу...

-- не совсем понятно - их всего 4? Или есть еще? Давай полный список


Добавлено:

Код:
[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DisableProgramGroupPage=yes

[Files]
Source: Files\*.*; DestDir: {app}; Flags: ignoreversion

[Tasks]
Name: desktopicon; Description: "Create a &desktop icon"; GroupDescription: "Additional icons:"
Name: desktopicon\common; Description: "For all users"; GroupDescription: "Additional icons:"; Flags: exclusive
Name: desktopicon\user; Description: "For the current user only"; GroupDescription: "Additional icons:"; Flags: exclusive unchecked
Name: quicklaunchicon; Description: "Create a &Quick Launch icon"; GroupDescription: "Additional icons:"; Flags: unchecked
Name: associate; Description: "&Associate files"; GroupDescription: "Other tasks:"; Flags: unchecked

[Code]
var
Page: TInputOptionWizardPage;

procedure InitializeWizard();
begin
Page := CreateInputOptionPage(wpSelectTasks,
'License Information', 'Are you a registered user?',
'If you are a registered user, please check the box below, then click Next.',
True, False);
Page.Add('Kabinet');
Page.Add('Skynet');
Page.Add('Convex, Olympus');
Page.Add('Planet, Extrim, Insis, Infotek');
end;

Программеры ПЛИЗ!!! помогите с кодом на то, чтобы сделать маленькую страницу с прогресс-баром в правом нижнем углу экрана типа "Подготовка к установке" как в InstallShield которая появляется перед страницой приветствия на 5-7 секунд