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

[EvilAlex]

Бахытжан,

у меня такой код на кнопку далее....

wpSelectDir:
  begin
   If WizardForm.FindComponent('NextButton') is TButton then
   TButton(WizardForm.FindComponent('NextButton')). Caption:='Установить';
end;

 

[Бахытжан]

Адиль в не поняли мой вопрос,после таскспейджа у меня идет установка без реди пейджа.Так как я убрал реди пейдж, но у меня здесь баттон далее , а не установить

 

[sergey3695]

Бахытжан, все правильно он тебе ответил.

 

[Carlos]

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

http://krinkels.org/showpost.php?p=1443&postcount=21

 

[vint56]

Carlos

Спойлер: Пример

[Setup]
AppName=Иконка
AppVerName=Иконка
DefaultDirName={pf}\Иконка

[Dirs]
Name: "{app}"; Attribs: system; AfterInstall: CreateIni();

[Files]
Source: icon.ico; DestDir: {app}

//******************************************* [ Папка, в которую устанавливается программа, имеет свою иконку ] ***************************************************//
procedure CreateIni();
begin
SaveStringsToFile(ExpandConstant('{app}\Desktop.ini'), ['[.ShellClassInfo]',
'IconFile=icon.ico',
'IconIndex=0'], False)
end;
//******************************************* [ Папка, в которую устанавливается программа, имеет свою иконку ] ***************************************************//[/SPOILER]
http://rghost.ru/46629635

 

[Tolyak26]

Извините меня за повторное беспокойство. Очень нужен скрипт быстрой смены языка через кнопку En/Ru. На подобии, как у от R.G. Revenants. Не поделитесь, если это возможно?

 

[Carlos]

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

 

[PUNISHER]

Carlos,

Спойлер

Procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpFinished then
begin
If WizardForm.FindComponent('NextButton') is TButton then
TButton(WizardForm.FindComponent('NextButton')).
Caption:='Завершить';
end
end;

 

[EvilAlex]

Всем бобров.
Я видимо плохо искал, а может и не было такого вопроса !? =)
Но кто может дать скрипт благодаря которому внизу на панель быстрого запуска будет отображаться прогресс зеленого цвета ?
И что будет если запустить инсталлятор на ХР с такой фишкой ?

 

[urban]

Всем бобров.
Я видимо плохо искал, а может и не было такого вопроса !? =)
Но кто может дать скрипт благодаря которому внизу на панель быстрого запуска будет отображаться прогресс зеленого цвета ?
И что будет если запустить инсталлятор на ХР с такой фишкой ?

это только на 7-8 такое,на хр такого не будет

 

[nik1967]

Я видимо плохо искал

WinTB v1.0.0.7 [29.04.2012] от David.D.Rocco

 

[Carlos]

PUNISHER,
а можно ли заменить на картинку?

 

[urban]

как вынести время установки на самый верх?

 

[Adil]

urban Если я правильно понял, то для ISDone

[SOURCE="inno"]function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3AnsiChar): longword;
begin
..............
WizardForm.Caption:= ExpandConstant('{cm:RemainingTime} ')+TimeStr1;
Result := ISDoneCancel;
end;[/SOURCE]

 

[urban]

а проценты как вынести?

 

[Adil]

urban
[SOURCE="inno"]function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3AnsiChar): longword;
begin
...................
WizardForm.Caption :='Готово: '+IntToStr(OveralPct div 10)+'.'+chr(48 + OveralPct mod 10)+'%';
.........................
end;[/SOURCE]

 

[andrey_167]

здраствуйте подскажите как добавить оставшиеся проценты при установки для isdone

 

[LexBell]

andrey_167, 100-(OveralPct div 10) - Логично вроде? Математика, третий класс начальной школы.

 

[urban]

как сделать кнопку играть в конце установки?

 

[sergey3695]

urban,
например,можно как в Prototype сделано. Чекбокс и указано; запуск приложения при закрытии установщика на финишной странице и при активном чекбоксе.

#define AppRunningFile "{app}\prototypef.exe"
...
procedure DeinitializeSetup();
var ResultCode: Integer;
begin
...
if (WizardForm.CurPageID=wpFinished) and (RunProgram.Checked) then
   Exec(ExpandConstant('{#AppRunningFile}'), '', '', SW_SHOWNORMAL, ewNoWait, ResultCode);
end;

Для кнопки смысл тотже.