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

Цитата:

Еще один вопросик. Можно сделать так, чтобы путь ((после выбора) куда приложение устанавливается) после установки заменял определенную переменную в текстовом файле?

Собственно вот!!!

maxdddca123
Цитата:

как называется сама эта кнопка выбора каталога ?

-- WizardForm.DirBrowseButton

BAPK
Цитата:

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

1. После выбора или после установки?
2. Приведи пример переменной, подлежащей замене.
3. Приведи пример текстового файла
4. Файл устанавливается или уже присутствует в системе?

Я уже неоднократно спрашивал, НО еще раз спрошу, возможно, ли сделать кнопки для управления музыкой в формате .mp3 через библиотеку bass.dll?

И еще Sampron уже спрашивал - можно ли как ни будь сделать картинку мастера установки (т.е. которая слева) на всех страницах инсталлятора, НЕ только на первой и последней?

Добавлено:
Genri
Твой код почему то выдает массу ошибок прикомпиляции.

[more=код]
Form1 := CreateCustomForm();
try
with Form1 do
begin
ClientWidth := ScaleX(380);
ClientHeight := ScaleY(120);
BorderStyle:= bsToolWindow; // или bsDialog, bsNone кому что нравится
BorderIcons:= BorderIcons - [biSystemMenu];
FormStyle:= fsStayOnTop;
Center;
end;

BitmapFileName := ExpandConstant('{tmp}\WizModernSmallImage.bmp');
ExtractTemporaryFile(ExtractFileName(BitmapFileName));
BitmapImage := TBitmapImage.Create(Form1);
BitmapImage.Left := ScaleX(8);
BitmapImage.Top := ScaleY(8);
BitmapImage.AutoSize := True;
BitmapImage.Bitmap.LoadFromFile(BitmapFileName);
BitmapImage.Parent := Form1;

StaticText := TNewStaticText.Create(Form1);
StaticText.Top := BitmapImage.Top;
StaticText.Left := BitmapImage.Left + BitmapImage.Width + ScaleX(8)
StaticText.Caption := 'Inno Setup is a free installer for Windows programs.' +
+ #10#13 + 'Support for all versions of Windows in use today';
StaticText.AutoSize := True;
StaticText.Parent := Form1;

Form1.Show();
Form1.Repaint;
Sleep(2000);
[/more]

Genri
А у Вас нету случайно исходного кода страницы с выбором дирректории ? Просто переделываю её, и там надо заменить совсем чучуть, а всё остальное по умолчанию...

NightW0lf
Цитата:

Твой код почему то выдает массу ошибок прикомпиляции

-- а куда ты его вставляешь?
Вот пример скрипта с прогрес-баром
Вот ты запросил такую штуку, как у инстал шилда
Вот изменения в предыдущем скрипте, которые дают ожидаемый результат (ну или почти так). Это только часть. Я надеялся, что интегрировать к себе сложностей не составит. Но если нет, то [more=вот]
Код:
[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DisableProgramGroupPage=yes
WindowVisible=yes

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

[Code]
procedure InitializeWizard();
var
Form1: TSetupForm;
StaticText: TNewStaticText;
BitmapImage: TBitmapImage;
BitmapFileName: String;
begin
Form1 := CreateCustomForm();
try
with Form1 do
begin
ClientWidth := ScaleX(380);
ClientHeight := ScaleY(120);
BorderStyle:= bsToolWindow; // или bsDialog, bsNone кому что нравится
BorderIcons:= BorderIcons - [biSystemMenu];
FormStyle:= fsStayOnTop;
Center;
end;

BitmapFileName := ExpandConstant('{tmp}\WizModernSmallImage.bmp');
ExtractTemporaryFile(ExtractFileName(BitmapFileName));
BitmapImage := TBitmapImage.Create(Form1);
BitmapImage.Left := ScaleX(8);
BitmapImage.Top := ScaleY(8);
BitmapImage.AutoSize := True;
BitmapImage.Bitmap.LoadFromFile(BitmapFileName);
BitmapImage.Parent := Form1;

StaticText := TNewStaticText.Create(Form1);
StaticText.Top := BitmapImage.Top;
StaticText.Left := BitmapImage.Left + BitmapImage.Width + ScaleX(8)
StaticText.Caption := 'Inno Setup is a free installer for Windows programs.' +
+ #10#13 + 'Support for all versions of Windows in use today';
StaticText.AutoSize := True;
StaticText.Parent := Form1;

Form1.Show();
Form1.Repaint;
Sleep(2000);
finally
Form1.Free();
end;
end;

Господа, а можно ли как то определить, установлен ли .NET Framework и какая версия? В инсталляторе новичёк... Кстати, ссылки в шапке на руководства не работают... может, ещё где лежит? заранее спасибо

il
Да, возможно!

Код:
[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;

NightW0lf

Цитата:

Я уже неоднократно спрашивал, НО еще раз спрошу, возможно, ли сделать кнопки для управления музыкой в формате .mp3 через библиотеку bass.dll?

Тоже хотелось бы знать - хотя бы для wav через winmm.dll, но лучше конечно для mp3 через bass.dll.

как однако, махом... )))) спасибо а другие версии фрамеворка другие ключи не сделают? а то не опознаетсяч....
и, может, как то по первой цифре смотреть, а не по всему ключу... такое возможно?

Genri
Ну подскажи пожалуйста как при выборе папки установки сделать, что бы было не окно
TFolderTreeView, а BrowseForFolder ???

maxdddca123
Цитата:

нету случайно исходного кода страницы с выбором дирректории ?

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

Genri
Спасибочки !!! Как обычно палочка выручалочка !

Цитата:

[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...

Я совсем в этом новичек, так что извиняйте...
Заранее спасибо

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

Sampron
изумительно! можно примерчик в студию?

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

При использовании данного скина обязательно нужно прописывать этот код:

[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

Genri
Спасибо за .NETFramework учту!

Добавлено:
Sampron
ОРОМОНОЕ тебе Спасибо за этот СКИН!


Добавлено:
Sampron
А возможно чтобы текст который раньше был на вверху, был и в твоем скине?

NightW0lf
http://forum.ru-board.com/topic.cgi?forum=5&topic=4801&start=1320#15

Sampron
Жаль что нельзя с текстом .

NightW0lf

Цитата:

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

Можно! Я понял! Просто нужно было MainPanel растянуть на всю страницу а InnerNotebook вынести на передний план.
Качаем исправленый:http://data.cod.ru/402161098

P.S. Текста сверху на первой и последней странице нету и незнаю как сделать.
Кнопки переключения на странице лицензии и кнопку "Не создавать папку в меню пуск" сделать текст белого цвета тоже не смог.

Добавлено:
http://data.cod.ru/402161098

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

Добавлено:
Sampron
Посмотри личку.

NightW0lf

Цитата:

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

Ну клон InsatllSheild-а я могу сделать а вот цвет текста в некоторых местах незнаю как.


Добавлено:
Люди нужна помощь как можно наложить текстуры (картинки в формате .bmp) на стандартные кнопки инно?

Sampron

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

Sampron

Цитата:

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

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

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;

Sampron
да, скин конечно хорош, но как снести BeveledLabel чуть ниже, а то накладка получается...

Вот...Собрал из кусков... Присутствуют и мои нароботки.


Цитата:

;Интерфейс установки максимально приближенный к 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.

Genri
Посмотри пожалуйста личные сообщения, очень нужна твоя помощь !

Цитата:

il NightW0lf

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