Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для kotyarko@fb

Старожил


Сообщения: 212
Благодарности: 92

Профиль | Отправить PM | Цитировать


Цитата habib2302:
и как? »
Ну блин, ну я же всё нужное процитировал.. Используй Exec.

Цитата Uragan66:
Возник вопрос как на страницу выбора компонентов добавить кнопку с запуском программы ( это каталог html, но сделанный в формате exe ) »
Примерно так:
Код: Выделить весь код
Var
 ExecButton: TNewButton;

Procedure ExecButtonOnClick(Sender: TObject);
var
 ResCode: Integer;
begin
 Exec(ExpandConstant('ПУТЬ_К_ФАЙЛУ'), '', '', SW_SHOW, ewNoWait, ResCode);
end;

Procedure InitializeWizard();
begin
 ExecButton := TNewButton.Create(WizardForm);
 with ExecButton do
 begin
  Parent := WizardForm;
  SetBounds(ScaleX(50), ScaleY(WizardForm.ComponentsList.Height + 20), ScaleX(30), ScaleY(15));
  Caption := 'Запуск';
  OnClick := @ExecButtonOnClick;
 end;
end;

Procedure CurPageChanged(CurPageID: Integer);
begin
 ExecButton.Hide;
 case CurPageID of
  wpSelectComponents: ExecButton.Show;
 end;
end;

-------
http://forum.worldoftanks.ru/topic/1429925-/
Исходник моего установщика: https://bitbucket.org/Kotyarko_O/kmp

Это сообщение посчитали полезным следующие участники:

Отправлено: 11:48, 22-07-2015 | #819