Как можно прикрутить кнопку пониже выбора пути установки, чтобы можно было переключать путь с "Program Files (x86)" на "Program Files" и наоборот.
Пример
[spoiler]Код: [/spoiler]
Код: Выделить всё
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.
[Code**]
var
Button: TNewButton;
Flag: Boolean;
procedure HideShow(Sender: TObject);
begin
if not Flag then begin
Button.Caption:='x86';
WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{pf64}')) + 'My Application';
Flag:= True;
end else begin
Button.Caption:='x64';
WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{pf32}')) + 'My Application';
Flag:= False;
end;
end;
procedure InitializeWizard();
begin
Button := TNewButton.Create(WizardForm);
with Button do
begin
Parent := WizardForm.SelectDirPage;
SetBounds(ScaleX(342),ScaleY(120),ScaleX(75),ScaleY(23));
Caption := 'x64';
OnClick := @HideShow
end;
end;
Но так и не понял логику вопроса.
