[Ivan_009]

Как текструировать прогрессбар на деинсталляторе через ботву если можно пример... Заранее спасибо за помощь...

[SatHan]

привет. есть у меня дополнение Update_1.6.2 к программе. которое выполняется через секцию [run].

Код:

[Run]
Filename: {src}\Update_x.x.x.exe; Description: Update

но вместо 1.6.2 может быть 1.7.0. что нужно сделать для того чтоб она выполнялась не зависимо от написанной версии в имени дополнения?

[Johny777]

SatHan,
я б так сделал:

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

Код:

[Setup]
AppName=Reg_Path_Demo
AppVerName=Reg_Path_Demo
DefaultDirName={pf}\Reg_Path_Demo

[Run]
Filename: {code:update}; Description: Update

[  code]
function update(uFile:String):String;
var
  File:String;
begin
  GetOpenFileName('укажите файл обновления', File, ExpandConstant('{src}'), 'файл обновления (*.exe)', '*.exe');
  Result := File;
end;

Ivan_009, Посмотри. Я тебе на предыдущей странице код намутячил

[Ivan_009]

Johny777, А для этого примера как сделать?

[Dima2009]

Всем доброго времени!

Люди знающии как файл "TC.xxx" в папке "{app}\Other" ассоциировать с иконкой "Icon.ico" в папке "{app}\Icons" после завершения установки!

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

[Setup]
AppName=My Program
AppVersion=0.0
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
Compression=lzma2
SolidCompression=yes
OutputDir=.

[Files]
Source: {app}\Icon.ico; DestDir: {app}\Icons; Flags: ignoreversion
Source: {app}\TC.xxx; DestDir: {app}\Other; Flags: ignoreversion

[Tasks]
Name: fileassoc; Description: Ассоциировать файл (TC.xxx) с иконкой

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

Dima2009, что ты понимаешь под набором словей "файл ассоциировать с иконкой"?

[Dima2009]

Чтобы значки у файлов с расширением ".xxx" стали как у иконки в папке "{app}\Icons"

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

Dima2009,

Код:

[Setup]
AppName=My Program
AppVersion=0.0
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
Compression=lzma2
SolidCompression=yes
OutputDir=.
// говорим шеллу чтобы он переобновил ассоциации после установки
ChangesAssociations=true
ChangesEnvironment=true

[Files]
Source: {app}\Icon.ico; DestDir: {app}\Icons; Flags: ignoreversion
Source: {app}\TC.xxx; DestDir: {app}\Other; Flags: ignoreversion

[Tasks]
Name: fileassoc; Description: Ассоциировать файл (TC.xxx) с иконкой

[Registry]
// при выборе задачи "Ассоциировать файл" в реестре будет прописано
// xxxname - виндовая переменная, file xxx - название (для человеков)
Tasks: fileassoc; Root: HKCR; SubKey: .xxx; ValueType: string; ValueData: xxxname; Flags: uninsdeletekey
Tasks: fileassoc; Root: HKCR; SubKey: xxxname; ValueType: string; ValueData: file xxx; Flags: uninsdeletekey
Tasks: fileassoc; Root: HKCR; Subkey: xxxname\DefaultIcon; ValueType: string; ValueData: {app}\Icons\Icon.ico,0; Flags: uninsdeletevalue

[Dima2009]

Ещё вопрос, встречал интсталлятор который без файла "ярлык интернета" в одной папке пишет.
Отсутствуют некоторые файлы инсталлятора!
Установка отменена.

Как самому так сделать?

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

Dima2009,

Код:

[*Code]
Function InitializeSetup: Boolean;
begin
  Result := True;
  If FileExists(ExpandConstant('{src}\file.log')) THEN begin
    MsgBox('Отсутсвуют файлы установки!' + #13#10 + 'Установка прекращена', mbError, mb_Ok);
    Result := False;
  end
  else Result := True;
// функция InitializeSetup - начальная, выполняется самой первой после запуска инсталлера, если она вернет false - инсталлер закроется и не пискнет
end;

______________

Что-то я подзабыл какие слова:
а) прекращают итерацию цикла и переходят на следующую итерацию
б) завершают цикл совсем досрочно
в) завершают функцию/процедуру