Цитата Imitri7:
+1 ну или хотяб покажите как реализовать смену формы инстлала по клику на чекбокс(как добавить чекбокс знаю) »
|
Для этого надо будет писать очень много кода (описание стандартной формы и расположение на ней элементов, и описание новой формы с новым расположением этих элементов),
если готов потрудиться, то вот ->
читать дальше »
Код:

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
OutputDir=.
[code]
var
MyCheck: TCheckBox;
procedure StandartForm();
begin
{ описание стандартного расположения элементов WizardForm }
with WizardForm do
begin
ClientWidth := ScaleX(497);
ClientHeight := ScaleY(360);
Center;
end;
end;
procedure MyNewForm();
begin
{ описание нового расположения элементов WizardForm }
with WizardForm do
begin
ClientWidth := ScaleX(700);
ClientHeight := ScaleY(500);
Center;
end;
end;
procedure GetWizardForm(Sender: TObject);
begin
if MyCheck.Checked then
MyNewForm()
else
StandartForm();
end;
procedure InitializeWizard();
begin
MyCheck := TCheckBox.Create(WizardForm);
with MyCheck do
begin
SetBounds(5, 330, 100, 13);
Caption := 'Сменить размер';
OnClick := @GetWizardForm;
Parent := WizardForm;
end;
end;