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

[Эмиль]

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

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


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

 

[Nemko]

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

Спойлер: Exp

[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;

 

[Nemko]

Эмиль, кинете код в личку, то могу посмотреть...

 

[Эмиль]

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

Спойлер: Exp

[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;

Таким образом все кнопки "Далее" скипнулись. А вот кнопку "Установить" я так не могу нажатьпочему то. Может "Установить" это не некст Баттон?

 

[Эмиль]

Эмиль, кинете код в личку, то могу посмотреть...

Максимум фото, завтра с утра когда буду на работе

 

[Эмиль]

Максимум фото, завтра с утра когда буду на работе

 

[Эмиль]

Эмиль, кинете код в личку, то могу посмотреть...

Бл@ получилось. От душил душевно в Душу

 

[Эмиль]

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

Спойлер: Exp

[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;

Спасибо. Сканало.