[_Monster_]

А что-нибудь вроде этого можно сделать

[A1EXXX]

_Monster_, посмотри в этой подборке, кажись видел там нечто подобное...

[Colapse]

Помагите мне пожалуйста!Стандартний скрипт создаю-все норм!А есKи хочу добавить черний цвет или еще что-то в етом роде-пишет ошибку Duplikate identifer "INITIALEWIZARD"!Я понимаю што ето потому што в секции Code у меня 2 значения INITIALEWIZARD но не знаю как ето исправить!Help!!!

[malyta]

Помагите мне пожалуйста!Стандартний скрипт создаю-все норм!А есKи хочу добавить черний цвет или еще что-то в етом роде-пишет ошибку Duplikate identifer "INITIALEWIZARD"!Я понимаю што ето потому што в секции Code у меня 2 значения INITIALEWIZARD но не знаю как ето исправить!Help!!! »

читать дальше »

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{4D20CA87-CB25-4252-9E32-48D949EA8C84}
AppName=My Program
AppVerName=My Program 1.5
AppPublisher=My Company, Inc.
AppPublisherURL=http://www.example.com/
AppSupportURL=http://www.example.com/
AppUpdatesURL=http://www.example.com/
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "C:\Program Files\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[code]
const
Color = clblack;

procedure InitializeWizard();
begin
WizardForm.PageNameLabel.Font.Color:=clWhite;
WizardForm.Font.Color:=clWhite;
WizardForm.Color:=Color;
WizardForm.WelcomePage.Color:=Color;
WizardForm.InnerPage.Color:=Color;
WizardForm.FinishedPage.Color:=Color;
WizardForm.LicensePage.Color:=Color;
WizardForm.PasswordPage.Color:=Color;
WizardForm.InfoBeforePage.Color:=Color;
WizardForm.UserInfoPage.Color:=Color;
WizardForm.SelectDirPage.Color:=Color;
WizardForm.SelectComponentsPage.Color:=Color;
WizardForm.SelectProgramGroupPage.Color:=Color;
WizardForm.SelectTasksPage.Color:=Color;
WizardForm.ReadyPage.Color:=Color;
WizardForm.PreparingPage.Color:=Color;
WizardForm.InstallingPage.Color:=Color;
WizardForm.InfoAfterPage.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.DiskSpaceLabel.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.GroupEdit.Color:=Color;
WizardForm.PasswordLabel.Color:=Color;
WizardForm.PasswordEdit.Color:=Color;
WizardForm.PasswordEditLabel.Color:=Color;
WizardForm.ReadyMemo.Color:=Color;
WizardForm.TypesCombo.Color:=Color;
WizardForm.WelcomeLabel1.Color:=Color;
WizardForm.InfoBeforeClickLabel.Color:=Color;
WizardForm.MainPanel.Color:=Color;
WizardForm.PageNameLabel.Color:=Color;
WizardForm.PageDescriptionLabel.Color:=Color;
WizardForm.ReadyLabel.Color:=Color;
WizardForm.FinishedLabel.Color:=Color;
WizardForm.YesRadio.Color:=Color;
WizardForm.NoRadio.Color:=Color;
WizardForm.WelcomeLabel2.Color:=Color;
WizardForm.LicenseLabel1.Color:=Color;
WizardForm.InfoAfterClickLabel.Color:=Color;
WizardForm.ComponentsList.Color:=Color;
WizardForm.ComponentsDiskSpaceLabel.Color:=Color;
WizardForm.BeveledLabel.Color:=Color;
WizardForm.StatusLabel.Color:=Color;
WizardForm.FilenameLabel.Color:=Color;
WizardForm.SelectDirLabel.Color:=Color;
WizardForm.SelectStartMenuFolderLabel.Color:=Color;
WizardForm.SelectComponentsLabel.Color:=Color;
WizardForm.SelectTasksLabel.Color:=Color;
WizardForm.LicenseAcceptedRadio.Color:=Color;
WizardForm.LicenseNotAcceptedRadio.Color:=Color;
WizardForm.UserInfoNameLabel.Color:=Color;
WizardForm.UserInfoNameEdit.Color:=Color;
WizardForm.UserInfoOrgLabel.Color:=Color;
WizardForm.UserInfoOrgEdit.Color:=Color;
WizardForm.PreparingLabel.Color:=Color;
WizardForm.FinishedHeadingLabel.Color:=Color;
WizardForm.UserInfoSerialLabel.Color:=Color;
WizardForm.UserInfoSerialEdit.Color:=Color;
WizardForm.TasksList.Color:=Color;
WizardForm.RunList.Color:=Color;
WizardForm.SelectDirBrowseLabel.Color:=Color;
WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;
end;

[Colapse]

не помагает!

[A1EXXX]

Colapse, для объединения скриптов используй ISS Joiner (в шапке есть), и предварительно почитай справки и FAQ по объединению процедур INITIALEWIZARD и других...

[malyta]

не помагает! »

Уважаемый пример скрипта работоспособный, я только что сам еще раз проверил!

[Colapse]

A1EXXX и malyta спасибо!
malyta я верю што способний но мне выдает всю туже ошибку!не подскажите ссылочку на FAQ по объединению процедур INITIALEWIZARD?

[malyta]

A1EXXX и malyta спасибо! malyta я верю што способний но мне выдает всю туже ошибку!не подскажите ссылочку на FAQ по объединению процедур INITIALEWIZARD? »

читать дальше »

В секции кода могут быть процедуры (procedure) или функции (function), имена у них должны быть уникальные, т.е. два одинаковых имени не допускаются. Если в какой-нибудь процедуре или функции (назовём её вызывающая функция) есть ссылка на другую процедуру или функцию (назовём её - вызываемая функция), то эта вызываемая функция должна быть расположена выше чем вызывающая функция. Так же не надо забывать про структуру процедур и функций, т.е.: Код: procedure MyProc; // имя процедуры begin // начало процедуры // тело процедуры, какой-то код end; // конец процедуры Одним словом, сколько begin в процедуре, столько должно быть и end; Пример объединения двух процедур InitializeWizard: Код: procedure InitializeWizard; var // так обозначают, что будут заданны переменные s: string; // задана переменная, только для этой процедуры begin // код 1 end; и вторая: Код: procedure InitializeWizard; var i: Integer; // задана переменная, только для этой процедуры begin // код 2 end; Результат: Код: procedure InitializeWizard; var s: string; i: Integer; begin // код 1 // код 2 end; Если коротко, то вот так... P.S. Удобней всего объединять скрипты в редакторе от Restools, т.к. у него слева есть окно в котором отображаются имена всех процедур в скрипте и что самое важное, эти имена сортируются не по расположению в скрипте, а по имени, т.е. все дубликаты процедур или функций видны сразу.

[YURSHAT]

Помагите мне пожалуйста!Стандартний скрипт создаю-все норм!А есKи хочу добавить черний цвет или еще что-то в етом роде-пишет ошибку Duplikate identifer "INITIALEWIZARD"!Я понимаю што ето потому што в секции Code у меня 2 значения INITIALEWIZARD но не знаю как ето исправить!Help!!! »

Маленький FAQ
Для объединения процедур INITIALEWIZARD и других нужно сделать следующее. Вы можете иметь в скрипте хоть десять одинаковых процедур, а объединять нужно так. Например у вас в скрипте три процедуры InitializeWizard. Каждую из них нужно пронумеровать:

procedure InitializeWizard1();
begin
\\Текст
end;

procedure InitializeWizard2();
begin
\\снова ваш текст
end;

\\не обязательно, чтобы процедуры были одна за другой, между ними могут быть другие процедуры

procedure InitializeWizard3();
begin
\\бла-бла-бла
end;

А в конце скрипта:

procedure InitializeWizard();
begin
procedure InitializeWizard1();
procedure InitializeWizard2();
procedure InitializeWizard3();
end;