[vint56]

ZVSRus,

Скрытый текст

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
DisableProgramGroupPage=yes

[code]
var
GroupBox1,GroupBox2: TNewGroupBox;

procedure InitializeWizard();
begin
GroupBox1 := TNewGroupBox.Create(WizardForm);
with GroupBox1 do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(0);
Top := ScaleY(75);
Width := ScaleX(417);
Height := ScaleY(65);
end;
GroupBox2 := TNewGroupBox.Create(WizardForm);
with GroupBox2 do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(0);
Top := ScaleY(150);
Width := ScaleX(417);
Height := ScaleY(65);
end;
with WizardForm.DirEdit do
begin
Left := ScaleX(10);
Top := ScaleY(20);
Width := ScaleX(310);
Parent := GroupBox1;
end;
with WizardForm.DirBrowseButton do
begin
Left := ScaleX(330);
Top := ScaleY(20);
Parent := GroupBox1;
end;
with WizardForm.GroupEdit do
begin
Left := ScaleX(10);
Top := ScaleY(20);
Width := ScaleX(310);
Parent := GroupBox2;
end;
with WizardForm.GroupBrowseButton do
begin
Top := ScaleY(20);
Left := ScaleX(330);
Parent := GroupBox2;
end;
end;