lazaniado
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите плиз девушке,мне задали в институте создать инсталятор на основе inno setup.
Главное чтоб в последнем окне установки был такой текст
Вверху(Завершение мастера установок...)
По середине(Программа установлена на ваш компьютер....)
А в низу самое главное написано КРАСНЫМ (Наш институт благодарит вас с успешным окончанием сесии)
Я пыталась,но у меня не получается добавить в низу надпись красным вот пример
; Сенарий сгенерирован Мастер сценария Inno Setup.
; СМОТРИТЕ В ДОКУМЕНТАЦИИ СВЕДЕНИЯ О СОЗДАНИИ ФАЙЛОВ СЦЕНАРИЯ INNO SETUP!
[Setup]
; Примечание: Значение AppId уникально идентифицирует приложение.
; Не используйте то же значение AppId в установщиках для других приложений.
; (Чтобы создать новый идентификатор GUID, нажмите Сервис | Генерировать GUID в интегрированной среде разработки).
AppId={{2796A496-D48F-444E-8DBC-C333E69E5F81}
AppName=Моя программа
AppVersion=1.5
;AppVerName=Моя программа 1.5
AppPublisher=Моя организация
AppPublisherURL=http://www.example.com/
AppSupportURL=http://www.example.com/
AppUpdatesURL=http://www.example.com/
DefaultDirName={pf}\Моя программа
DefaultGroupName=Моя программа
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.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
; Примечание: Не используйте "Flags: ignoreversion" для любых общих системных файлов
[CustomMessages]
russian.NameAndVersion=%1, версия %2
russian.AdditionalIcons=Дополнительные значки:
russian.LaunchProgram=Открыть %1
russian.AddonHostProgramNotFound=%1 не найден в указанной вами папке. %n%nВы все равно хотите проолжить?
russian.FinishLabel=Наш институт благодарить вас с успешным окончанием сесии!
[Icons]
Name: "{group}\Моя программа"; Filename: "{app}\MyProg.exe"
Name: "{commondesktop}\Моя программа"; Filename: "{app}\MyProg.exe"; Tasks: desktopicon;
[Run]
Filename: "{app}\MyProg.exe"; Description: "{cm:LaunchProgram,Моя программа}"; Flags: nowait postinstall skipifsilent
[Code]
var
FinishedLabel: TLabel;
procedure InitializeWizard();
begin
FinishedLabel:= TLabel.Create(WizardForm);
FinishedLabel.AutoSize:= False;
with WizardForm.FinishedLabel do
FinishedLabel.SetBounds(Left, Top+90, Width, Height);
FinishedLabel.Font:= WizardForm.FinishedLabel.Font
FinishedLabel.Font.Color:= clRed;
FinishedLabel.Transparent:= True;
FinishedLabel.WordWrap:= true;
FinishedLabel.Caption:=ExpandConstant('{cm:FinishLabel}');
FinishedLabel.Parent:= WizardForm.FinishedPage
FinishedLabel.Font.Style:=[fsBold];
FinishedLabel.Alignment := taCenter;
FinishedLabel.Font.Size:=8;
end; |
