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

Genri
Можешь помочь, что бы избавиться от этого безобразия ? Некрасиво очень смотрится, не влезают названия
http://www.nalog.kamisever.ru/nalog/data/anyone/bad.JPG
Пожалуйста помоги мне !!!!!!!

Добавлено:
Я код тебе в личку скинул !

maxdddca123 -- а как, на твой взгляд, должно быть?
Можно, например, вообще не отображать:
Page.CheckListBox.AddCheckBox(Value[I], '', 0, False, True, False, False, nil);
.. а можно отображать в урезанном виде:
if RegGetValueNames(HKEY_CURRENT_USER, 'Software\My Program\Path', Names) then
begin
SetArrayLength(Value,GetArrayLength(Names));
for I := 0 to GetArrayLength(Names)-1 do
begin
RegQueryStringValue(HKEY_CURRENT_USER, 'Software\My Program\Path', Names[I], Value[I]);
ShortPath:= Names[I];
j:= Length(Names[I]+Value[I])-70;
if j > 0 then
begin
Delete(ShortPath, 1, j+3);
ShortPath:= '...' + ShortPath;
end;
Page.CheckListBox.AddCheckBox(Value[I], ShortPath, 0, False, True, False, False, nil );
end;
end;

Genri
На мой взгляд нужно добавить вниз горизонтальный скрол, и отображать в полном виде. Тогда юзер просто прокрутит вправо и увидит невлезающий текст. Это можно сделать ?

maxdddca123
Цитата:

На мой взгляд нужно добавить вниз горизонтальный скрол

-- думаю, что это невозможно.

Genri
Жаль, тогда будем резать. Кстати а если увеличить размер окна инсталлятора то наверно и информации больше поместится ? Как ты считаешь ? Если согласен, напиши пожалуйста пример корректного увеличения окна инсталятора.

Genri

Цитата:

[Files]
Source: Files\*.*; DestDir: {userappdata}\Opera\{code:ShortAppDir}; Flags: ignoreversion
Код:
function ShortAppDir(Param: String): String;
var
AppDir, TrimAppDir: String;
begin
AppDir:= WizardDirValue;
TrimAppDir:= ExtractFilePath(AppDir + '..');
StringChange(AppDir, TrimAppDir, '');
Result:= AppDir;
end;

Думаю, смысл понятен. ShortAppDir возвращает папку (без пути), куда устанавливается программа.

Вот так заработало!!! Спасибо огромное!!!

Люди как можно рисунок который показывается на странице приветствия и финиша вставить на каждую страницу?
Сейчас слегка изменяю вид инсталлятора но сэтим рисунком проблема, должно выглядеть вот так: http://data.cod.ru/390757834

NightW0lf Sampron
Цитата:

А возможно в этом новом ProgressBar'e сделать так что бы одновременно запускался ProgressBar и Splash.bmp

[more=Возможно.]
Код:
[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DisableProgramGroupPage=yes
WindowVisible=no

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

[Code]
function GetSystemMetrics(nIndex:Integer):Integer;
external 'GetSystemMetrics@user32.dll stdcall';

function InitializeSetup(): Boolean;
var
Form, Splash: TSetupForm;
ProgressBar: TNewProgressBar;
CancelButton: TButton;
StaticText: TNewStaticText;
BitmapImage, BitmapImage1: TBitmapImage;
BitmapFileName: String;
i: Integer;
begin
Form := CreateCustomForm();
try
with Form do
begin
ClientWidth := ScaleX(380);
ClientHeight := ScaleY(120);
BorderStyle:= bsDialog;
Left:= GetSystemMetrics(16) - ClientWidth - ScaleX(12);
Top:= GetSystemMetrics(17) - ClientHeight - ScaleY(12);
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 := '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 := 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;

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();

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;

for i:= 0 to 30 do
begin
ProgressBar.Position:= i;
Form.Repaint;
Sleep(500);
i:= i + 1;
end;
finally
Form.Free();
Splash.Free();
end;
Result:= True;
end;

Народ, как правильно изменить размер окна инсталятора ?

[Code]
procedure InitializeWizard();
begin
WizardForm.Width:=640;
WizardForm.Height:=480;
end;

конечно работает, но меняется тока сам размер, а содержимое так и остаётся прежнего размера. Как сделать, что бы содержимое тоже занимало весь размер окна ?

Sampron

Цитата:

Люди как можно рисунок который показывается на странице приветствия и финиша вставить на каждую страницу?
Сейчас слегка изменяю вид инсталлятора но сэтим рисунком проблема, должно выглядеть вот так: http://data.cod.ru/390757834

Поддерживаю, хочу все тоже самое сделать у себя в инсталляторе, НО только еще хочу чтобы можно было изменить размер (оригинальный - 164x314; который надо - 180x330) этой картинки слева?

Такой вот вопрос - у меня в инсталлер встроена музыка, можно ли сделать какой-нибудь чекбокс или кнопку где можно было откл/вкл эту музыку?

Xom9I4oK
А музыка в каком формате?
Просто у меня есть пример там три кнопки (play, pause, stop) для управления музыков в формате .xm через библиотеку "bassmod.dll", НО я тоже хочу сделать эти же кнопки для управления музыки в формате .mp3 через библиотеку "bass.dll".

[more=Пример три кнопки (play, pause, stop)]

Код:

[Files]
Source: "C:\SETUP_FOR\_WC3_TH\TMP_FILES\MUSIC_TRACKER\BASSMOD.dll"; DestDir: "{tmp}"; Flags: dontcopy noencryption
Source: "C:\SETUP_FOR\_WC3_TH\TMP_FILES\MUSIC_TRACKER\music.xm"; DestDir: "{tmp}"; Flags: dontcopy noencryption

[Code]
const
BASS_MUSIC_RAMP = 1; // (только для Fast Tracker .xm)
BASS_MUSIC_RAMPS = 2; // (только для Fast Tracker .xm)
BASS_MUSIC_LOOP = 4; // повторение
BASS_MUSIC_FT2MOD = 16; // играть .MOD как FastTracker 2
BASS_MUSIC_PT1MOD = 32; // играть .MOD как ProTracker 1
BASS_MUSIC_SURROUND = 512; // звучание surround
BASS_MUSIC_SURROUND2 = 1024; // звучание surround (режим 2)

function BASSMOD_Init(device: Integer; freq, flags: DWORD): Boolean;
external 'BASSMOD_Init@files:BASSMOD.dll stdcall delayload';

function BASSMOD_MusicLoad(mem: BOOL; f: PChar; offset: DWORD; length: DWORD; flags: DWORD): Boolean;
external 'BASSMOD_MusicLoad@files:BASSMOD.dll stdcall delayload';

procedure BASSMOD_MusicFree();
external 'BASSMOD_MusicFree@files:BASSMOD.dll stdcall delayload';

function BASSMOD_MusicPlay(): Boolean;
external 'BASSMOD_MusicPlay@files:BASSMOD.dll stdcall delayload';

function BASSMOD_MusicPause(): Boolean;
external 'BASSMOD_MusicPause@files:BASSMOD.dll stdcall delayload';

function BASSMOD_MusicStop(): Boolean;
external 'BASSMOD_MusicStop@files:BASSMOD.dll stdcall delayload';

procedure BASSMOD_Free();
external 'BASSMOD_Free@files:BASSMOD.dll stdcall delayload';


function InitializeSetup(): Boolean;
var
ResultCode: Integer;
ResultStr:string;
begin
Result:=True;
end;

procedure PlayButtonOnClick(Sender: TObject);
var
Name1: string;
begin
if not BASSMOD_MusicPlay then
begin
Name1:=ExpandConstant('{tmp}\music.xm');
if BASSMOD_MusicLoad(FALSE, PChar(Name1), 0, 0, BASS_MUSIC_LOOP or BASS_MUSIC_SURROUND) then
BASSMOD_MusicPlay;
end;
end;

procedure PauseButtonOnClick(Sender: TObject);
begin
BASSMOD_MusicPause;
end;

procedure StopButtonOnClick(Sender: TObject);
begin
BASSMOD_MusicStop;
BASSMOD_MusicFree;
end;



//при запуске инсталлятора выполняем вот этот код:
procedure InitializeWizard();
var
Name1: string;
PlayButton, PauseButton, StopButton: TButton;
Text: TNewStaticText;
Panel1: TPanel;
begin
ExtractTemporaryFile(ExpandConstant('BASSMOD.dll'));
ExtractTemporaryFile(ExpandConstant('music.xm'));
if not BASSMOD_Init(-1,44100,0)
then
begin
MsgBox('BASSMOD Can''t initialize the device. Playing is not possible.', mbError, MB_OK)
BASSMOD_Free;
end
else
begin
Name1:=ExpandConstant('{tmp}\music.xm');
if BASSMOD_MusicLoad(FALSE, PChar(Name1), 0, 0, BASS_MUSIC_LOOP or BASS_MUSIC_SURROUND) then
BASSMOD_MusicPlay;
end;
WizardForm.Position:=poScreenCenter;
WizardForm.CancelButton.BringToFront;
begin
Panel1 := TPanel.Create(WizardForm);
with Panel1 do
begin
Panel1.Parent := WizardForm;
Panel1.Left := ScaleX(1);
Panel1.Top := ScaleY(315);
Panel1.Width := ScaleX(165);
Panel1.Height := ScaleY(46);
Panel1.TabOrder := 0;
Panel1.Color := clWhite;
Panel1.BevelInner := bvLowered;
Panel1.BevelOuter:= bvRaised;
Panel1.BorderStyle := bsSingle;

PlayButton := TButton.Create(WizardForm);
PlayButton.Left := 5;
PlayButton.Top := 335;
PlayButton.Width := 50;
PlayButton.Height := 20;
PlayButton.Caption := 'play';
PlayButton.OnClick := @PlayButtonOnClick;
PlayButton.Parent := WizardForm;
PlayButton.Cursor := crHand;

PauseButton := TButton.Create(WizardForm);
PauseButton.Left := 58;
PauseButton.Top := 335;
PauseButton.Width := 50;
PauseButton.Height := 20;
PauseButton.Caption := 'pause';
PauseButton.OnClick := @PauseButtonOnClick;
PauseButton.Parent := WizardForm;
PauseButton.Cursor := crHand;

StopButton := TButton.Create(WizardForm);
StopButton.Left := 111;
StopButton.Top := 335;
StopButton.Width := 50;
StopButton.Height := 20;
StopButton.Caption := 'stop';
StopButton.OnClick := @StopButtonOnClick;
StopButton.Parent := WizardForm;
StopButton.Cursor := crHand;

Text := TNewStaticText.Create(WizardForm);
Text.Caption := 'music';
Text.Parent := WizardForm;
Text.Font.Style := Text.Font.Style + [fsUnderline];
Text.Font.Color := clNavy;
Text.Top := 319;
Text.Left :=71;
Text.Color := clWhite;
end;
end;
end;

NightW0lf

Цитата:

Xom9I4oK
А музыка в каком формате?

Мне mp3 нужно или wav на крайняк.

NightW0lf

Цитата:

Поддерживаю, хочу все тоже самое сделать у себя в инсталляторе, НО только еще хочу чтобы можно было изменить размер (оригинальный - 164x314; который надо - 180x330) этой картинки слева?

А я уже сделал, но проблему с рисунком так и не решил так что пришлось убрать верхнюю панель с текстом и использовать WizModernSmallImage.bmp на всех страницах кроме первой и последней.

Sampron

Цитата:

Цитата:Поддерживаю, хочу все тоже самое сделать у себя в инсталляторе, НО только еще хочу чтобы можно было изменить размер (оригинальный - 164x314; который надо - 180x330) этой картинки слева?

А я уже сделал, но проблему с рисунком так и не решил так что пришлось убрать верхнюю панель с текстом и использовать WizModernSmallImage.bmp на всех страницах кроме первой и последней.

А мне не подскажешь как ты это сделал?

NightW0lf

Цитата:

А мне не подскажешь как ты это сделал?

Я это сделал через ResHacker в файле Setup.e32.

Добавлено:
Ссылка на исходник http://data.cod.ru/395083210

Добавлено:
Качать всем будем менять стандартный вид инно

Sampron
Спасибо! Буду пробывать.

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

DroN_S

Цитата:

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

Да, вот скачай руководство найди там пункт "Шифровка инсталлятора от распаковщика" там все описанно подробно.

Добавлено:
Ну раз уж начали мы делать "клон" InstallSheild'a то как можно сделать вот эту штуку.

NightW0lf

Цитата:

Ну раз уж начали мы делать "клон" InstallSheild'a то как можно сделать вот эту штуку.

Да было б неплохо.

NightW0lf
спасибо!!!!

NightW0lf
Цитата:

раз уж начали мы делать "клон" InstallSheild'a то как можно сделать вот эту штуку

-- А чем эта штука отличается от формы с прогрес-баром, скрипт которой я выкладывал пару страниц назад? Только отсутствием прогрес-бара? Так убрать его и получится требуемое.

Genri

Цитата:

-- А чем эта штука отличается от формы с прогрес-баром, скрипт которой я выкладывал пару страниц назад? Только отсутствием прогрес-бара? Так убрать его и получится требуемое.

Требуемое не получится скачай образец и посмотри (870 кб) http://data.cod.ru/395541962

Sampron -- я посмотрел на пример NightW0lf
Код:
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);

Genri

Цитата:

посмотри отсюда:
http://forum.ru-board.com/topic.cgi?forum=5&topic=4801&start=840#16

Огромное спасибо!!! А isxbb можно как нибудь на этой форме заставить работать - там задавали вопрос но я ничего не нашел?
Еще раз с надеждой!

Добавлено:
NightW0lf

Цитата:

Вот полный исправленный пример фон из .BMP, а слайд-шоу из .JPG.

А можно сюда прикрутить ченить типа этого:

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;


т.е. чтоб jpg менялись в зависимости от (%) установки?

Genri
Найди для меня времечко - Загляни в личку

Вопрос: у меня есть кнопка выбора папки (типа обзора)
res:=BrowseForFolder('Веберите папку базы 1С', UserSelectDir, False);
мне нужно, что бы после нажатия Ок в этой форме вылезала другая форма, куда юзер вводить имя базы.... Написал вот так, не работает, помогите где не так ?

procedure BrowseOnClick(Sender: TObject);
var
res: Boolean;
UserSelectDir: String;
Form: TSetupForm;
OKButton, CancelButton: TButton;

Memo1: TMemo;
NewStaticText1: TNewStaticText;
begin
res:=BrowseForFolder('Веберите папку базы 1С', UserSelectDir, False);

if res then
RegGetValueNames(HKEY_CURRENT_USER, 'Software\1C\1Cv7\7.7\Titles', Names)
begin
SelectedDir:= UserSelectDir+'\';
for i:= 1 to GetArrayLength(Names) - 1 do
begin

if SelectedDir = Names[I] then
begin
MsgBox('Эта база уже присутствует в списке !', mbInformation, MB_OK);
SelectedDir:='';
Exit;
end;

end;


Form := CreateCustomForm();
try
Form.ClientWidth := ScaleX(256);
Form.ClientHeight := ScaleY(256);
Form.Caption := 'TSetupForm';
Form.CenterInsideControl(WizardForm, False);
// Memo1
Memo1 := TMemo.Create(Form);
with Memo1 do
begin
Parent := Form;
Left := ScaleX(0);
Top := ScaleY(32);
Width := ScaleX(185);
Height := ScaleY(25);
Lines.Add(ExpandConstant(''));
TabOrder := 1;
end;

// NewStaticText1
NewStaticText1 := TNewStaticText.Create(Form);
with NewStaticText1 do
begin
Parent := Form;
Caption := ExpandConstant('Введите название базы');
Left := ScaleX(16);
Top := ScaleY(8);
Width := ScaleX(155);
Height := ScaleY(14);
TabOrder := 2;
end;
OKButton := TButton.Create(Form);
OKButton.Parent := Form;
OKButton.Width := ScaleX(75);
OKButton.Height := ScaleY(23);
OKButton.Left := Form.ClientWidth - ScaleX(75 + 6 + 75 + 10);
OKButton.Top := Form.ClientHeight - ScaleY(23 + 10);
OKButton.Caption := 'OK';
OKButton.ModalResult := mrOk;

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;


SelectedDir:= UserSelectDir+'\';
Page.CheckListBox.AddCheckBox('1C Налогоплательщик', SelectedDir, 0, True, True, False, False, nil);
RegWriteStringValue(HKEY_CURRENT_USER, 'Software\1C\1Cv7\7.7\Titles', SelectedDir, '1C Налогоплательщик');
SelectedDir:='';

finally
Form.Free();
end;
end;
end;

Genri
Нужна твоя помощь, можно ли этот код сделать по-умолчанию в инно, чтобы кнопки были на переднем фоне

[Code]
procedure InitializeWizard();
var
Page: TWizardPage;
begin
WizardForm.BackButton.BringToFront;
WizardForm.NextButton.BringToFront;
WizardForm.CancelButton.BringToFront;
end;

Что здесь нужно добавить:

object CancelButton: TButton
Left = 464
Top = 387
Width = 17
Height = 23
Cancel = True
Caption = '*'
TabOrder = 4
OnClick = CancelButtonClick
end
object NextButton: TButton
Left = 440
Top = 387
Width = 17
Height = 23
Caption = '*'
Default = True
TabOrder = 3
OnClick = NextButtonClick
end
object BackButton: TButton
Left = 424
Top = 387
Width = 16
Height = 23
Caption = '*'
TabOrder = 2
OnClick = BackButtonClick
end

Я просто налаживаю рисунок на панель с кнопками и без этого кода кнопки не отображаются.

Sampron

Цитата:

У меня он одоновременно запускается при фоновом окне с WindowVisible=no, а без него по очереди что очень жаль. Сюда выложил пример: http://data.cod.ru/386629066

В твоем примере не реально нажать кнопку Cancel во время процесс-граббера!!!
Реально исправить?

Добавлено:
NightW0lf

Цитата:

НО все таки как добавить текст в заголовок ProgressBar'a??

Form.Caption := 'Подготовка к установке';

У меня при выборе папки установки на стандартной странице нет сетевого окружения, моего компьютера и документов. Как это исправить ?
И как называется сама эта кнопка выбора каталога ? Думал по аналогии с другими WizardForm.BrowseButton не подходит Народ ну помогите кто нить... Ведь важная проблема...