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

SReg84

Цитата:

перенести чекбоксы с последующих страниц установки на страницу выбора папок

Такое уже обсуждалось и не раз. Сначаль скачай примеры из шапки темы, а затем поищи во всех частях ветки Inno Setup.

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

SReg84

Цитата:

помогите пожалуйста

Ну…, если не хочешь разбираться Сам, то [more=вот]

[Setup]
AppName=My Program
AppVerName=My Program v 1.0
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
AllowNoIcons=True
DisableProgramGroupPage=True
DisableReadyPage=True
ShowLanguageDialog=auto
OutputDir=userdocs:My Program.

[Languages]
Name: "eng"; MessagesFile: "compiler:Default.isl";
Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl";

[CustomMessages]
eng.ICONSCHECK=Don't create a Start Menu folder
rus.ICONSCHECK=Не создавать папку в меню «Пуск»

[Files]
Source: "compiler:Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion;

[Icons]
Name: "{userdesktop}\My Program"; Filename: "{app}\MyProg.exe"; WorkingDir: "{app}"; Check: "Checked1";
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"; WorkingDir: "{app}"; Check: "Checked3";
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\My Program"; Filename: "{app}\MyProg.exe"; WorkingDir: "{app}"; Check: "Checked2";

[Code]

var
Check1, Check2, Check3: TCheckBox;

function Checked1: Boolean;
begin
Result := Check1.Checked;
end;

function Checked2: Boolean;
begin
Result := Check2.Checked;
end;

function Checked3: Boolean;
begin
Result := Check3.Checked = False;
end;

procedure InitializeWizard();
var
Text1: TNewStaticText;
begin
Text1 := TNewStaticText.Create(WizardForm);
Text1.Top := WizardForm.DirEdit.Top + WizardForm.DirEdit.Height + ScaleY(7);
Text1.Width := WizardForm.DirEdit.Width;
Text1.Caption := ExpandConstant('{cm:AdditionalIcons}');
Text1.Parent := WizardForm.SelectDirPage;

Check1 := TCheckBox.Create(WizardForm);
Check1.Top := Text1.Top + Text1.Height + ScaleY(7);
Check1.Width := WizardForm.DirEdit.Width;
Check1.Caption := ExpandConstant('{cm:CreateDesktopIcon}');
Check1.Checked := False;
Check1.Parent := WizardForm.SelectDirPage;

Check2 := TCheckBox.Create(WizardForm);
Check2.Top := Check1.Top + Check1.Height + ScaleY(7);
Check2.Width := WizardForm.DirEdit.Width;
Check2.Caption := ExpandConstant('{cm:CreateQuickLaunchIcon}');
Check2.Checked := False;
Check2.Parent := WizardForm.SelectDirPage;

Check3 := TCheckBox.Create(WizardForm);
Check3.Top := Check2.Top + Check2.Height + ScaleY(7);
Check3.Width := WizardForm.DirEdit.Width;
Check3.Caption := ExpandConstant('{cm:ICONSCHECK}');
Check3.Checked := False;
Check3.Parent := WizardForm.SelectDirPage;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpSelectDir then
if ActiveLanguage = 'rus' then
WizardForm.NextButton.Caption := 'Установить'
else
WizardForm.NextButton.Caption := 'Install';
end;
[/more] готовый пример.

spider91 как делается реплак на игру что за что отвечает например 1 делом тото хочу научится делать реплаки

Добавлено:
spider91 вот смотри у меня установлен Inno Setup 5.2.0 что еще устанавливать надо к нему?

Подскажите в какую сторону копать?
1.нужно скачать файлы с FTP
2.установить на локальном компе
3.послать сообщение по мылу что все Ок

в Inno Setup это реализуемо , мож у кого скриптик есть похожий
заранее спасибо

Есть у кого скрипт с реализацией прогресс бара во время установки при использовании внешнего упаковщика (например, FreeArc'а) - во многих инсталляторах репаков игр это есть, а если уже выкладывали, тогда дайте ссылку на страницу...
P.S. Тот что в сборнике скриптов не предлагать (разве что в готовом к употреблению варианте)...

Evil555

ну смотря какая игра. архиваторы нужны и другие проги но сейчас времени нет. завтра раскажу подробней. а вобще тебе сюда

Всех с ПОБЕДОЙ!!!!!! нашей сборной над канадцами!!!!

Как одновременно менять 2-ва Edit-a

я как понел так Edit1.Text := Edit2.Text; но куда это вставить??? в Create не помогло и в neextButton тоже!

Дайте кодинг плиззз...

Идея такова вводим в Edit1 слово Чувак и это слово появляется в Edit2 и из Edit1 оно не пропадает а дублируется как и в Edit1 так и в Edit2

kombat 77
Спасибо тебе огромное, ты мне очень помог!

KurtWagner
[more=кататак][Code]
var
Page: TInputDirWizardPage;
Edit1,Edit2: TEdit;

procedure Edit1Change(Sender: TObject);
begin
Edit2.Text:=Edit1.Text;
end;

procedure InitializeWizard();
begin
Page:=CreateInputDirPage(wpWelcome,'Page', 'test','',False,'NewFolder');

Edit1:=TEdit.Create(WizardForm);
with Edit1 do begin
Left:=10;
Top:=10;
Width:=Page.Surface.Width-20;
Parent:=Page.Surface;
OnChange:=@Edit1Change;
end;
Edit2:=TEdit.Create(WizardForm);
with Edit2 do begin
Left:=10;
Top:=40;
Width:=Page.Surface.Width-20;
Parent:=Page.Surface;
end;
end;
[/more]

А по каким причинам не фигурирует в шапке версия 0.23 Inno Setup Unpack от китайцев? Какие-то проблемы с ней или другие резоны?

Astra55
ммм, а кто нибудь сказал об этой версии? О_о

Я поглядел повнимательнее - то ли это фэйк, судя по дате, то ли китайцы идут своим путем, не обращая внимания на автора

помогите как ето реализовать штобы в папке с программой создавалсья файл stream.ini и там записовалсья етот код
Код: memory        13500
devkit_memory    13500
vehicles    12
pe_lightchangerate    0.0005
pe_lightingbasecap    0.35
pe_lightingbasemult    0.5
pe_leftx    16
pe_topy        16
pe_rightx    16
pe_bottomy    16
dontbuildpaths

Странно, что в шапке так и не опубликована ISTool 5.3.0 (release), а так же странно то, что разработчик на своем оф. сайте не обновил информацию.

Ребята, может кто сможет обновить (дополнить перевод) русификатор до текущей версии (5.3.0) ISTool? Приятно, когда все на русском, а эта приятность еще и в двойне, когда не знаешь английский.

Yoldosh

Цитата:

как ето реализовать штобы в папке с программой создавалсья файл stream.ini и там записовалсья етот код

возможно, [more=так]


[Setup]
AppName=Test
AppVerName=Test
DefaultDirName={pf}\Test
Uninstallable=False
OutputDir=userdocs:Test.

[Code]

procedure CurStepChanged(CurStep: TSetupStep);
var
S: String;
begin
if CurStep = ssPostInstall then
S := 'memory 13500' + #13#10 + 'devkit_memory 13500' + #13#10 + 'vehicles 12' + #13#10 +
'pe_lightchangerate 0.0005' + #13#10 + 'pe_lightingbasemult 0.5' + #13#10 + 'pe_leftx 16' + #13#10 + 'pe_topy 16' + #13#10 +
'pe_rightx 16' + #13#10 + 'pe_bottomy 16' + #13#10 + 'dontbuildpaths';
SaveStringToFile(ExpandConstant('{app}\stream.ini'), S, True);
end;

[/more]

htuos неработает вот мой кодинг

[CustomMessages]
CustomForm_Caption=CustomForm Caption
CustomForm_Description=CustomForm Description


[Code]
var
Edit1: TEdit;
Edit2: TEdit;

procedure Edit1Change(Sender: TObject);
begin
Edit2.Text:=Edit1.Text;
end;

function CustomForm_CreatePage(PreviousPageId: Integer): Integer;
var
Page: TWizardPage;
begin
Page := CreateCustomPage(
PreviousPageId,
ExpandConstant('{cm:CustomForm_Caption}'),
ExpandConstant('{cm:CustomForm_Description}')
);

Edit1 := TEdit.Create(Page);
with Edit1 do
begin
Parent := Page.Surface;
Left := ScaleX(48);
Top := ScaleY(48);
Width := ScaleX(121);
Height := ScaleY(21);
TabOrder := 0;
end;

Edit2 := TEdit.Create(Page);
with Edit2 do
begin
Parent := Page.Surface;
Left := ScaleX(40);
Top := ScaleY(104);
Width := ScaleX(121);
Height := ScaleY(21);
TabOrder := 1;
end;

with Page do
begin
OnActivate := @CustomForm_Activate;
OnShouldSkipPage := @CustomForm_ShouldSkipPage;
OnBackButtonClick := @CustomForm_BackButtonClick;
OnNextButtonClick := @CustomForm_NextButtonClick;
OnCancelButtonClick := @CustomForm_CancelButtonClick;
end;

Result := Page.ID;
end;

procedure InitializeWizard();
begin
CustomForm_CreatePage(wpWelcome);
end;

KurtWagner -- вероятно, ты забыл строку - OnChange:=@Edit1Change; (у htuos в примере она есть)

htuos и Genri Спасибо вам выручили!

kombat 77
спасибо огромное !!!!!!!

Можно ли в эти части http://img520.imageshack.us/img520/6214/123412341234123412.png
вставить анимированные картинки формата .gif

BondDaniil00
Теоритически можно. Но простыми средствами нельзя. Придется создавать таймер и на экран кидать следующий кадр.

SotM
Ясна, спасибо


Добавлено:
Как называется WizardForm.??????
В которой предлогается создать ярлык на рабочем столе

У кого нибуть есть скрипт установки Inno Setup Scripting 5.1 от Kindly?

BondDaniil00

Цитата:

Как называется WizardForm.??????
В которой предлогается создать ярлык на рабочем столе

Не совсем понял вопроса. Но вот тебе:

Цитата:

const
wpWelcome = 1;
wpLicense = 2;
wpPassword = 3;
wpInfoBefore = 4;
wpUserInfo = 5;
wpSelectDir = 6;
wpSelectComponents = 7;
wpSelectProgramGroup = 8;
wpSelectTasks = 9;
wpReady = 10;
wpPreparing = 11;
wpInstalling = 12;
wpInfoAfter = 13;
wpFinished = 14;

Выбирай понравившуюся.

Vitalliano
О_о
ээээ, а когда установив его ты пробовал смотреть файл "C:\Program Files\Inno Setup Scripting v5.1\Scripts\SourceScript\iss.iss" ????

BondDaniil00


Цитата:

Как называется WizardForm.??????
В которой предлогается создать ярлык на рабочем столе

WizardForm.SelectTasksPage

можно ли зделать чтоб погрессбар в XP был цельный как и в висте а не квадратиками?

spider91
Квадратиками? По-моему, в Inno под XP, плавно идет прогрессбар. Или нет?

SotM


вот сравни XP и Bиста