[BlackSelf]

Cinot, ну, например, так (добавьте к своему скрипту):

читать дальше »

Код:

[Files]
Source: "D:\file1.txt"; DestDir: "{app}\Programs"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: not Full;
Source: "D:\file2.txt"; DestDir: "{app}\Programs"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: Full;

[Code]
var
  FullCheck: TCheckBox;

function Full: Boolean;
begin
  Result:=FullCheck.Checked;
end;

procedure InitializeWizard;
begin
  FullCheck := TCheckBox.Create(WizardForm);
  with FullCheck do
  begin
  Parent := WizardForm;
  Left := 0;
  Top := 0;
  Width := 0;
  Height := 0;
  TabOrder := 0;
  Checked := False;
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
  s: string;
begin
  if CurStep = ssinstall then
  begin
    s:=Edit.Text;
    If s='12345' then FullCheck.Checked:=True
    else FullCheck.Checked:=False;
  end;
end;