[Serega]

можно поподробнее? »

Даже не знаю, суть вам объяснили, даже дали пример выше... осталось только готовый скрипт написать

Простой пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.
Compression=lzma2/ultra64
InternalCompressLevel=ultra64
SolidCompression=yes

[Languages]
Name: ru; MessagesFile: compiler:Languages\Russian.isl

[Files]
Source: compiler:Examples\CodeAutomation.iss; DestDir: {app}; Check: InstallType1; Flags: ignoreversion
Source: compiler:Examples\CodeAutomation2.iss; DestDir: {app}; Check: InstallType2; Flags: ignoreversion


[Code]
var
  ISCustomPage1: TWizardPage;
  Label1: TLabel;
  Label2: TLabel;
  NewRadioButton1: TNewRadioButton;
  NewRadioButton2: TNewRadioButton;

function InstallType1: Boolean;
begin
  Result := NewRadioButton1.Checked;
end;

function InstallType2: Boolean;
begin
  Result := NewRadioButton2.Checked;
end;

procedure Label1Click(Sender: TObject);
begin
  NewRadioButton1.Checked := True;
end;

procedure Label2Click(Sender: TObject);
begin
  NewRadioButton2.Checked := True;
end;

procedure InitializeWizard();
begin
  { Creates custom wizard page }
  ISCustomPage1 := CreateCustomPage(wpWelcome, 'Тип установки', 'Выберите тип установки');

  { Label1 }
  Label1 := TLabel.Create(WizardForm);
  with Label1 do
    begin
      Parent := ISCustomPage1.Surface;
      AutoSize := False;
      Caption := 'Тип №1' + #13#10#13#10 +
                 'Здесь пишем всякую муть про тип №1...';
      OnClick := @Label1Click;
      SetBounds(ScaleX(64), ScaleY(45), ScaleX(327), ScaleY(45));
    end;

  { Label2 }
  Label2 := TLabel.Create(WizardForm);
  with Label2 do
    begin
      Parent := ISCustomPage1.Surface;
      AutoSize := False;
      Caption := 'Тип №2' + #13#10#13#10 +
                 'Здесь пишем всякую муть про тип №2...';
      OnClick := @Label2Click;
      SetBounds(ScaleX(64), ScaleY(136), ScaleX(327), ScaleY(45));
    end;

  { NewRadioButton1 }
  NewRadioButton1 := TNewRadioButton.Create(WizardForm);
  with NewRadioButton1 do
    begin
      Parent := ISCustomPage1.Surface;
      SetBounds(ScaleX(40), ScaleY(45), ScaleX(17), ScaleY(17));
    end;

  { NewRadioButton2 }
  NewRadioButton2 := TNewRadioButton.Create(WizardForm);
  with NewRadioButton2 do
    begin
      Parent := ISCustomPage1.Surface;
      SetBounds(ScaleX(40), ScaleY(136), ScaleX(17), ScaleY(17));
    end;
end;

вот только одна мелочь странная,если мелкие файлы ,то их размер пишется правильно например 24.4 кб или 26.8мб,а крупные файлы почему,то 512.000000000БТ »

Видимо, что-то не так делаете, я даже не буду ничего спрашивать, скажу лишь одно, покажите скрипт.