Скрипты Inno Setup. Помощь и советы [часть 3]

[Snork911]

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

[LinkOFF]

чем можно пережать файлы очень сильно?

[serhio]

Всем привет! Подскажите пожалуйста что такое "препроцессор"?

[LinkOFF]

if CurPageID=имя_страницы then WizardForm.Font=имя_шрифта;
страницы например wpWelcome, wpSelectDir, wpReady, wpFinished и т.д. (можно посмотреть в хелпе) »
А в какую функция код всиавлять

[serhio]

LinkOFF,чем можно пережать файлы очень сильно? »
FreeArc

[murlakatamenka]

LinkOFF,
вставлять в конечно
[CODE][Коде]
begin
if CurPageID=имя_страницы then WizardForm.Font=имя_шрифта;
end;

[LinkOFF]

вставлять в [code] конечно »
У меня вылезает Unknown identifier 'CurPageID'

if CurPageID=wpWelcome then WizardForm.Font=clblack;
Примерно так вставлять цвет?

FreeArc »
А еще сильней?

[R.i.m.s.k.y.]

У меня вылезает Unknown identifier 'CurPageID' »

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID=wpWelcome then WizardForm.Font=clblack
end;

[Gnom_aka_Lexander]

Всем привет! Подскажите пожалуйста что такое "препроцессор"? »
Отсюда (http://www.jrsoftware.org/isdl.php#stable) качаеш issrc-5.4.2.zip (http://www.jrsoftware.org/download.php/issrc.zip) и распаковываеш в папку с Инно, это и есть препроцессор.У меня вылезает Unknown identifier 'CurPageID' »
данный тебе код нужно вставлять в procedure CurPageChanged(CurPageID: Integer);if CurPageID=wpWelcome then WizardForm.Font=clblack; »
Да, именно так.

[murlakatamenka]

лень было скрипты мне посмотреть
да, точно надо в CurPageChanged вставлять, это процедура, которая отслеживает смену страниц в инсталляторе
procedure CurPageChanged(CurPageID: Integer);
Called after a new wizard page (specified by CurPageID) is shown

[serhio]

Лександер, спасибо за подсказку! :wink:

LinkOFF,А еще сильней? »
по-моему это самый сильный.

[kenny_danger]

в общем нужен скрипт который бы автоматом искал папку со steam аккаунтом
D:\Steam\steamapps\account_name
видел такое в нескольких инсталяторах, но походу они на installshield
http://www.esl.eu/de/css/download/18324844/
в этом
http://www.roccat.org/Downloads/Online/ROCCAT-Stuff/roccatgui300css.zip
как это реализовать в inno setup

[Habetdin]

kenny_danger, нужно поискать путь в реестре в ветке HKLM\Software\Valve, ну или HKCU\Software\Valve

[kenny_danger]

kenny_danger, нужно поискать путь в реестре в ветке HKLM\Software\Valve, ну или HKCU\Software\Valve »
ну я нашел в HKLM\Software\Valve\Steam (InstallPath D:\Steam)
как это реализовать DefaultDirName
что то не врублю

[kenny_danger]

да и мне нужно чтобы устанавливалось в папку
D:\Steam\steamapps\имя_аккаунта
до аккаунта допустим он найдет а как он найдет сам аккаунт они у всех разные

есть у меня одна ддлка как то выдрал из какого то инсталятора, мб поможет
http://narod.ru/disk/14677281001/steamseldir.dll.html

[zero 414]

народ, подскажите что нужно в скрипт добавить, чтобы при отмене установки игры не начинал ставиться софт

[LinkOFF]

Подскажите пожалуйста.У меня вылезает Duplicate identifier 'CURPAGECHANGED' когда я вставляю в скрипт

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID=wpWelcome then WizardForm.Font=clblack
end;

если можете то втавьте пожалуйста процедуру в скрипт.
Вот скрипт:http://rghost.ru/download/9068071/1231bb5578d77c3e4a61c11a8214b63f15bc6762/Script.rar

Этот скрипт для изменения цвета шрифта на странице

[murlakatamenka]

LinkOFF, подружитесь с английским языком и/или словариком
у вас 2 процедуры с одинаковым названием, чего быть не должно, поэтому и ошибка
в поцедуру - procedure CurStepChanged(CurStep: TSetupStep);
добавьте код
if CurStep = ssDone and MyError then begin
LabelTime3.Hide;
WizardForm.Caption:= ExpandConstant('{cm:Error}');
WizardForm.FinishedLabel.Font.Color:= clRed;
WizardForm.FinishedLabel.Caption:= SetupMessage(msgSetupAborted) ;
end;
а этот кусок можно будет удалить
Procedure CurPageChanged(CurPageID: Integer);
Begin
if (CurPageID = wpFinished) and MyError then
begin
LabelTime3.Hide;
WizardForm.Caption:= ExpandConstant('{cm:Error}');
WizardForm.FinishedLabel.Font.Color:= clRed;
WizardForm.FinishedLabel.Caption:= SetupMessage(msgSetupAborted) ;
end;
end;

[serhio]

Парни,помогите разобратся в 2х вопросах:
1) что и куда вписать в скрипт что-бы в конце процедуры устанавливался Soft: DerectX и т.д.
2) как распаковать архив "arc"
В шапке пункт "Распаковка архивов FreeArc" не помог. Или я может что недопонял! :sorry:

[murlakatamenka]

serhio, 1) в конце какой процедуры ? в конце установки ?
обычно доп по делается через секцию [Tasks] и [Run], с доп по сам пару месяцеев назад разбирался, вот примерчик
[Tasks]
Name: additional; Description: "Дополнительное ПО";
Name: additional\dx; Description: "Обновить DirectX"; Flags: unchecked
Name: additional\vcr; Description: "Обновить библиотеки Visual C++"; Flags: unchecked;

...

[Run]
Filename: {src}\Redist\DirectX\dxsetup.exe; Tasks: additional\dx; StatusMsg: Установка DirectX; Parameters: /silent;
Filename: {src}\Redist\vcredist_x86.exe; Tasks: additional\vcr; StatusMsg: Обновление библиотек Visual C++; Parameters: /q;
2) для распаковки .arc используйте ISDone, замечательная dll, которая идёт вместе с примерным скриптом и подробным и толковым описанием в .chm-файле