Автонажатие "Установить"

Эмиль

Новичок
Добрый день. Нужна помощь. Только начал разбираться в вопросе программирования и InnoSetup. Есть некий дистрибутив.

При проверке на определенный параметр все окна прокликивают NextButton и должна нажаться кнопка "Установка". Успешно получилось прокликать все окна но последнее, где кнопка "Установить" не сработало. Как нажать на кнопку установить? NextButton не подходит, видимо эта кнопка называется по другому.


Спасибо большое за подсказки, надеюсь мой ломанный innosetupный язык понятен был
 

Nemko

Дилетант
Модератор
Эмиль, можно так:

Код:
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
function InitializeSetup: Boolean;
begin
  if FileExists(ExpandConstant('{src}\setup.exe')) then Result:=True; // если условие истина, то запуск
end;

procedure CurPageChanged(CurPageID: Integer);      
begin                                            
  WizardForm.Show;                      // показать форму (без этого не робит)
  WizardForm.NextButton.OnClick(nil);   // нажатие на кнопку
end;
 

Эмиль

Новичок
Эмиль, можно так:

Код:
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
function InitializeSetup: Boolean;
begin
  if FileExists(ExpandConstant('{src}\setup.exe')) then Result:=True; // если условие истина, то запуск
end;

procedure CurPageChanged(CurPageID: Integer);     
begin                                           
  WizardForm.Show;                      // показать форму (без этого не робит)
  WizardForm.NextButton.OnClick(nil);   // нажатие на кнопку
end;
Таким образом все кнопки "Далее" скипнулись. А вот кнопку "Установить" я так не могу нажатьпочему то. Может "Установить" это не некст Баттон?
 

Эмиль

Новичок
Эмиль, можно так:

Код:
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
function InitializeSetup: Boolean;
begin
  if FileExists(ExpandConstant('{src}\setup.exe')) then Result:=True; // если условие истина, то запуск
end;

procedure CurPageChanged(CurPageID: Integer);     
begin                                           
  WizardForm.Show;                      // показать форму (без этого не робит)
  WizardForm.NextButton.OnClick(nil);   // нажатие на кнопку
end;

Спасибо. Сканало.
 
Сверху